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ABSTRACT 


The United States Marine Corps accomplishes its mission “to put the right 
Marine in the right place at the right time with the right skills and quality of life” 
in a variety of ways. One of the information systems assisting the Marine Enlisted 
Assignments branch is the Recruit Distribution Model (RDM). This thesis proposes 
changes to the RDM user interface, data management, assignment model, and anal- 
ysis capability. With the use of business process reengineering, process modeling, 
mathematical modeling, and database design a fully functional prototype has been 
developed to address each identified change proposal. This reengineered system in- 
cludes numerous innovations such as an intuitive navigational scheme using switch- 
boards, and the elimination of manual data entry for data already available in the 
system. It also provides a number of significant contributions beneficial to the USMC. 
For instance, the reengineered system allows the user to objectively analyze different 
results by comparing four different objective measures, and its mathematical model 
uses commercial-off-the-shelf products eliminating a proprietary solver. All these 
changes will empower managers to effectively and efficiently manage the assignment 


of recruits in order to meet the challenges of the 21st century. 
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IL. INTRODUCTION 


A. THESIS PURPOSE 

The main purpose of this thesis was to reengineer a United States Marine 
Corps’ Manpower Assignment model concerned with the distribution of recruits to 
schools. This model is called the Recruit Distribution Model (RDM) [Ref. 1]. 
Throughout this thesis, the RDM is addressed as either RDM or the old system. 

Additionally, an important purpose of this thesis was to build a functional pro- 
totype of the reengineered RDM. The new system is called the Recruit Distribution 
Decision Support System (RDdss). It demonstrates the functionality of the reengi- 
neered RDM. Throughout this thesis, the RDdss is addressed as either RDdss or the 
new system. 

The majority of this thesis is devoted to a discussion of the RDdss. As nec- 
essary, the RDM is discussed. The following section is a general discussion designed 
to set the stage for understanding the rest of the thesis. It provides a problem de- 
scription of recruit distribution in the United States Marine Corps (USMC). The last 


section of this chapter discusses the significant contributions of this thesis. 


B. GENERAL PROBLEM DESCRIPTION 


Recruit distribution in the USMC is the process that assigns recruits to an 
entry level school (ELS) leading to a military occupational specialty (See Figure 1). 
These assignments are made about 48 times a year, during the last week of Marine 
Corps Recruit Depot (MCRD) training. In this ending period of the MCRD, the 
recruits are facing the “Crucible,” which is the final wicket a recruit endures before 
officially becoming a Marine. Consequently, the use of the titles recruit and Marine 
are used interchangably in this paper. 

For at least two reasons, this assignment process is a critical manpower func- 


tion. First, a Marine’s military occupational specialty (MOS) ultimately determines 
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Figure 1. Assigning Marines to Schools 


the member’s career. Therefore, it is in the best interest of both the Marine and 
the USMC that a school assignment matching the Marine’s desire is made. Second, 
the success obtained by a service member during his or her time in the USMC is 
partially based upon successful completion of their ELS, where a pattern of success 
is established. Therefore, a school assignment maximizing the chances of the Marine 
completing their training is important. So, fulfilling the Marine’s desire and matching 
him or her to an MOS (i.e. ELS) that fits their personal characteristics is critical to 
the overall health of the USMC, making the assignment process a critical manpower 
function [Ref. 2]. 

Fulfilling the desire of the Marine is accomplished through the use of a contract 
guarantee. This is called a program enlisted for (PEF), and is specified during the 
recruiting process. For instance, a PEF = 19 is the “Tank and Assault Amphibian 
Option.” There are currently two ELS’s associated with this, “M1A1 Tank Crewman” 
and “Assault Amphibian Crewman.” So, a Marine who chose the PEF = 19 isa 
possible candidate for these two schools and no others. 


Once the Marine’s school options are known, a Marine-to-school fit is deter- 


mined for each of these schools (See Chapter III, Section B for details). This fitness 
determination is partly made by looking at each ELS’s minimum eligibility require- 
ments, which are call mandatory properties. This term “property” is used as defined 
by Webster’s Ninth New Collegiate Dictionary: “a quality or trait belonging and 
especially peculiar to an individual or thing.” Examples are Age > 18, Clerical >= 
80, and Electrical >= 95. The meaning of the first example is obvious. The other 
two are based on test scores from the Armed Services Vocational Aptitude Battery 
(ASVAB) test. 

In addition to the mandatory properties, most schools also specify desirable 
properties. A desired property is the same as a mandatory property, except they 
are not prerequisites for attending the school. For example, the Trafhc Management 
Coordination school desires Marines with a Clerical score of at least 100. So, a desired 
property of Clerical >= 100 is specified for this ELS. 

By using the information obtained from the PEF, mandatory and desired 
properties, a fitness matrix is generated. This shows the fit of every Marine to every 
school he or she is eligible for. Since there are about 100 schools and on average 700 
Marines considered for every run, this matrix has the potential of 70,000 matches. 

However, the matrix size is actually bigger. ‘This is because each of the schools 
is broken down by classes. Some ELS’s have a class starting each week, others every 
month, and others every quarter. Over a given year, these classes total about 1,800. 
Following the practice of the USMC, only the classes over the next 3-4 months are 
considered during the assignment process (see Figure 2). Therefore, the fitness matrix 
is increased to a potential size of 350,000. 

The fact that the school classes start at different times throughout the year 
and that the assignment process is only conducted 48 times a year (normally this 
occurs on friday) causes the “3-month look ahead” in the model and has implications 
important to the USMC. The concern is school seats which never get filled. Each 


seat is prepaid, guaranteeing its availability to the USMC. This means every vacant 
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Figure 2. Assigning Marines to School Classes 


spot is potentially a lost resource to the USMC. Therefore, in addition to the Marine- 
to-school fitness concern, there is also the concern of filling all available school seats 
before their report date is passed. 

Another concern is the problem of unassigned Marines. There are numerous 
reasons why they may not get assigned. Maybe the only school class the Marine 
was eligible for is already full. Or, possibly he or she is not qualified for any of the 
school’s promised by their PEF. A third possibility is errors in the data provided 
to the assignment process. Regardless of the cause, it requires identification and 
corrective action. 

Finally, a discussion of the internal and external stakeholders associated with 
the USMC recruit distribution is given. Internally, there are the USMC and the 
recruits. Since their concerns were discussed above, they are not given any further 
consideration. Externally, there is the contractor Decision Support Associates, Inc. 
(DSAI) who has maintained and upgraded the RDM for over 30 years. They also 
maintain about eight other major systems for the USMC. For their services, the 
USMC pays a significant amount of money each year. Additionally, DSAI has pro- 


prietary software in some of these systems, which has locked-in the USMC to this 


company. Besides the contractor, there is one last significant stakeholder, the Amer- 
ican taxpayer. In a time of increasing fiscal constraints and shrinking budgets, it is 
imperative that wise decisions are made in regards to assigning Marines to ELS’s. 


The American taxpayers expect nothing less. 


C. SIGNIFICANT CONTRIBUTIONS 


Four significant contributions beneficial to the USMC have been made in this 
thesis. A detailed discussion of these is given throughout the next three chapters. 


Here, we list and summarize the contibutions. 


e Analysis and articulation of the recruit distribution process - by interviewing 
USMC and DSAIT personnel, reviewing available documentation, and oper- 
ating the RDM we were able to articulate an understanding of the recruit 
distribution process using IDEF process modeling. Additional data modeling 
was articulated in a third normal form relational schema [Ref. 3}. 


e Development of a mathematical model - by analyzing the assignment process, 
criteria, and constraints, USMC policies and objectives, a mathematical model 
for the new system was developed. 


e Fully functional prototype - an intuitive and easy to understand new sys- 
tem that seamlessly interfaces with the old system was built. It provides an 
objective means of comparing assignment results of both systems, and was 
developed using commercial-off-the-shelf (COTS) software applications. 


e Elimination of the proprietary solver and associated contractor lock-in - this 
was accomplished by replacing the proprietary solver with two COTS appli- 
cations. 





s 


If. REENGINEERING MOTIVATIONS 
AND PROCESS VIEW 


The RDM has a number of limitations which motivated the USMC to reengi- 
neer it. We start this chapter by listing and describing each identified limitation. 
Then, to develop a better understanding of recruit distribution in the USMC, two 
different process views are examined. The first is concerned with the RDM operating 
environment, and the second is concerned with the first level of the RDdss IDEFO 


model. 


A. LIMITATIONS OF OLD SYSTEM 

Throughout this reengineering effort, a number of limitations of the old system 
have become apparent. Many of these limits were recognized earlier, and were part of 
the USMC’s motivation to reengineer the RDM. The following is a list of the identified 


limitations of the old system. 


Navigation 


Data management 


e Assignment procedure 


Transaction processing approach 
A description of each limitation is now given. 


1. Navigation 

Navigating through the RDM is not intuitive. It is neither obvious where one 
should start or where one should go. Navigation is accomplished by initially selecting 
an option from one of the main display’s drop down menus. This normally results in a 
window appearing on the computer’s desktop. Then, by pointing and clicking on the 
displayed window’s buttons, further navigation is accomplished. After working with 


the RDM for a number of hours, we were able to navigate through the application 


to find and display specific windows. However, after a week or two of not using 
the system, we had difficulty finding our way around again. In the RDdss, we have 


created an intuitive navigational scheme using switchboards. 


2. Data Management 

Data management in the RDM is poor, leading to the introduction of numerous 
errors. The biggest problem in this regard deals with data entry. The RDM violates 
the basic rule of never requiring the user to enter data already in the system [Ref. 4]. 
For example, creating a new school in the RDM requires the user to type data into 
seven different data fields. Only the course identification number has been automated 
by a drop down list. In the RDdss, when creating a new school we have reduced the 


manual data entry to one field. 


3. Assignment Procedure 
There are at least five limitations associated with the old system’s assignment 


procedure. It 


e is encoded into proprietary software, 

e examines schools sequentially, rather than globally, 

e makes assignments based on school priority rather than weights, 
e attempts to maximize fill rather than fit-and-fill, and 


e is relatively inflexible. 


The solver performing these assignments was designed back in the 1950’s, 
where the major concern was speed and using the minimal amount of memory. It 
is written in Fortran, and is proprietary code owned by DSAI. It does not search 
repetitively for an optimal solution by trying to maximize or minimize an objective 
function. Instead, it maximizes the fill of prioritized school seats. In the RDdss, we use 
a well know algorithm called CPlex [Ref. 5]. After conducting around 600 iterations 


of comparing 344 Marines to 576 school classes, it produces an optimal solution. Its 


objective function was written to make the assignment procedure flexible. It allows 
the RDdss manager to “game” the system by making fit-and-fill trade-offs, until a 


“good” solution is found. 


4. ‘Transaction Processing Approach 

Finally, the old system follows a transaction processing approach, vice a de- 
cision support approach [Ref. 6]. This is partially due to the inflexibility of the 
solver. However, another contributor is the extreme difficulty in comparing one run 
to another. Other than providing a means for manually computing the numerical 
difference in Marines assigned, the RDM provides little insight or information views 
for comparing runs. This is because there is no way to objectively compare one run 
to another. As it is now, if the RDM manager launches the assignment model and 
everybody is assigned, the result becomes the approved assignments. In the RDdss, 
we have created an entire process devoted to providing insightful analysis of a given 
run (See Chapter IV, Section D for details). Its purpose is to support the making of 


wise assignment decisions. 


B. A PROCESS VIEW 


To develop a better understanding of recruit distribution in the USMC, two 
different process views are now examined. The first is concerned with the current 
operating environment of the old system. The goal is to develop a big picture view 
of this process. For those interested in further study of the old system, Appendix A 
contains the RDM business process IDEF0O model. 

The second process view examined concerns the first level of the RDdss busi- 
ness process IDEFO model. The goal is to develop a better understanding of the 
new system, without going into great detail. This lays a good foundation for the 
RDdss discussions in the remainder of this thesis. Appendix B contains the entire 


IDEF0 model of the new system. 


















ARMS-Automated 
Recruit Mgmt System 
BNA-By Name 
Assignment System 
MCRD-Marine Corps 
Recruit Depot 








? School 
die 


Recrui/PEF 
Authorizations 












Approved 








General | io a Assignments MCT-Marine Combat 
Public ~ macnn Training 
MODS-Military 







Recruits/ Operational Data Store 





Special Data 
Assignments/ Input & Storage & 
Reclassifications Control Retrieval 


Figure 3. Current Recruit Distribution Operating Environment 


1. Recruit Distribution Model Operating Environ- 
ment 


Figure 3 graphically depicts the operating environment of the USMC recruit 
distribution. At the top are the policy makers, who forecast and decide how many 
recruits and corresponding school seats are needed over the next few years. In addition 
to this, they determine how many PEF’s or school guarantees to make available for a 
given year. Currently, about 65-70% of the recruits enter the USMC with a quarantee. 
The recruit and PEF authorizations for the following year are given to the USMC 
recruiters, and the school seats or quotas determined for the following years is input 
into the By Name Assignment (BNA) system. 

The recruiters use the recruit and PEF authorizations in recruiting from the 
general public. Once a potential candidate is found they take the ASVAB, if they have 
not already done so. Based on the results, the recruiter can offer different quarantees. 
Once the candidate signs a contract with the USMC, their test scores, PEF, and other 
personal information such as age and height are entered into the Automated Recruit 
Management System (ARMS). 

Both the ARMS and BNA systems utilize large main frame databases. ‘They 


10 


serve as central repositories for maintaining data on many aspects dealing with the 
USMC. Keeping this information stored in one location ensures everyone is using the 
same data, providing consistency for all users. One user is the RDM manager, who 
retrieves recruit and school information from these systems for use in the RDM. 

Additionally, the RDM receives data from two other sources. The MCRD 
instructors provide special assignment inputs. These are personnel identified as having 
the talents or abilities well suited for a particular school. The other data comes from 
the MCT. They provide the RDM manager with reclassification information. For 
instance, a Marine is reclassified if he or she is injured during MCT and is unable to 
make the start date of their assigned ELS. 

All this recruit and school data is input into the RDM, where it is stored 
in the Military Operational Data Store (MODS). The model is then run. Once a 
satisfactory set of assignments is obtained, the RDM manager uploads the approved 
assignments to the ARMS and BNA systems. From this assignment information, the 


MCRD generates orders for the Marines graduating from the MCRD. 


2. New System Level 0 Diagram 

Focus is now shifted to the examination of the first process level of the RDdss. 
Looking any deeper will provide more detail than is necessary at this point. As 
mentioned earlier, the intent is to lay the foundation for the RDdss discussions in the 
remainder of this thesis. 

Figure 4 shows the level 0, or context diagram of the RDdss. The program 
used to generate this illustration was BPWin, which is based on IDEFO modeling. 
Consequently, all arrows entering from the left are considered“inputs,” arrows enter- 
ing from the top are “controls,” arrows exiting to the right are “outputs,” and arrows 


entering from the bottom are “mechanisms.” A convenient acronym for this is ICOM 


{Ref. 7]. 


e | = Input: something consumed in the process 


e C = Control: a constraint on the operation of the process 
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Figure 4. RDdss Process, Level 0 Diagram 


e O = Output: something resulting from the process 


e M = Mechanism: something used to perform the process, but is not itself 
consumed 


There are three inputs to the RDdss, the BNA extract, the RD1 file, and the 
special assignments/reclassifications. The first of these contains a set of school class 
quotas covering a 120 day period. This comes to the RDdss manager as a fixed-width 
delimited text file. The RD1 file contains the data for the recruits soon to graduate 
from the MCRD. It also is a fixed-width delimited text file. The special assignments 
and reclassifications are the recruits identified with special abilities or talents and the 
Marines requiring reassignment to a different school class, respectively. This last data 
comes to the RDdss manager as a memo and not a text file. 

The only control is the database (or Military Operational Data Store) used to 
store the data for the RDdss. Among other things, the MODS contains the informa- 
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tion specifying the eligibility requirements for each of the schools. This is why it is 
considered a control. It contains the data controlling or constraining the assignment 
of Marines to schools. 

Besides the approved assignments that were mentioned earlier, the output con- 
sists of graphs, reports, and query results. Each graph was designed to provide insight 
into the current assignment result, plus provide a means for comparing different runs. 
The reports provide a print-out of information the RDdss manager might find useful. 
For instance, an approved assignment report and an unassigned Marine report are 
both available. The query results provide different views of the data in the MODS. 
For instance, one of the queries provides a listing of the fitness scores of all schools a 
Marine is eligible for. 

Finally, the two mechanisms of the RDdss are the RDdss manager and the 
commercial-off-the-shelf (COTS) application AMPLPlus. Both of these entites are 
necessary to make the system work, and are not consumed by the process itself. 
This is why they are considered mechanisms. The RDdss manager is the one who 
points and clicks on the buttons of the RDdss, making it operate. AMPLPlus is the 
application containing the mathematical model used in making optimal Marine-to- 
school assignments. It interfaces with the CPlex algorithm that actually performs 


the optimization. 
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II. MODELING THE RECRUIT 
DISTRIBUTION PROBLEM 


We model the recruit distribution problem as an assignment problem. Various 


submodels are developed to compute input paramters and perform other preprocess- 


ing steps for the assignment model, which optimally assigns recruits to a school class. 


Following is a discussion of important points concerning the recruit distribution prob- 


lem. 


A. 


1. Schools and Classes: there are about 130 schools per fiscal year, which are 


broken down by classes (about 1800 classes per fiscal year). Classes of the 
same school, commencing on different dates, are identical. However, a class 
commencing soon after a recruit is available for training has greater utility 
than another class starting at a later date. On average, there are 600 classes 
in arun. 


. Program Enlisted For (PEF) 


(a) 65-70% of enlistees enter the USMC under a guarantee (or PEF). The 
remaining recruits enter under an open contract (PEF=00). 


(b) A recruit can be assigned only to schools associated with his or her PEF. 
Some PEF’s are associated with one school, while others are associated 
with many schools. 


OPTIMIZATION OBJECTIVES: FIT AND FILL 


Our approach in the assignment model is to optimize by looking at both fit 


and fill. The importance of both these objectives was discussed in Chapter II, Section 


B. The idea is to allow the RDdss manager to make a tradeoff between fit and fill. 


The high-level objective function is: 


e Maximize 


K,- Fitness — Ky- Penalty 


Where Kk; is the fitness coefficient and Ko is the fill coefficient. 
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By assigning different values to these coefficients, the RDdss manager is able 
to make trade-offs between fit and fill. This capability makes the assignment model 


flexible. It provides the RDdss manager a means for “gaming” the system. 


B. MEASURING FITNESS 


The first half of the high-level objective function deals with maximizing the 
fitness of Marines to schools. Therefore, we cover this topic now. Following is a 


discussion of important points concerning the measuring of fitness. 


1. Marines are only eligible for assignment to schools corresponding to their PEF 
guarantees. 


2. Associated with each school are specific mandatory properties, or minimum 
eligibility requirments (e.g. AGE > 18). 


3. Eligibilty of a Marine to a school is pre-determined by comparing a Marine’s 
attributes (e.g. Age = 20) to the school’s mandatory properties. A Marine is 
eligible only if he or she meets all the minimum school requirements. 


4. Many schools also have desirable properties associated with them. ‘This is 
a property which is desired in a Marine (e.g. Height > 65 inches), but are 
not prerequisties for attending the school. Since some desirable properties 
are more desirable than others, a means of distinquishing the properties is 
necessary. We have followed the Marine Corps practice of using 6 levels of 
desirability. Level 1 properties are the most desired, followed by level 2, etc. 


5. Let P(s) denote the set of desirable properties for school s, and let level(p) 
denote the desirability level of property p. Let possesses(m ) = 1 if Marine m 
possesses property p (0 otherwise). Further, let Scorejeveip) (> 0) be the score 
assigned for possessing a level(p) property, where Scorejeyer(p) is calculated 
using an exponential function inversely proportional to level(p). The scores 
for levels 1 through 6 are shown in Figure 5. 


6. The total fitness score (fitm) of Marine m to school s is composed of two 
parts: the score (ManScore,,,) for possessing mandatory properties, and the 
score (DesScore»,;) for possessing some or all of the desirable properties. 


Our procedure for computing fitness scores is designed in a manner that, for 
each school, the average fitness score—with the average computed over all 
qualified Marines, i.e. Marines who have met the mandatory properties— 
is constant (ie. 100). The reason we did this was to ensure each school 
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level(p) 





Figure 5. Exponential Function for Calculating Scorejeyerp) 


received equal treatment in the model, regardless of the number of desirable 
properties specified for each school. Otherwise, all other things being equal, 
the school with the greatest number of desirable properties would receive the 
most assignments. 


. For each school s, percentage weights ManWt, and DesWt, are assigned, 
respectively, for the mandatory and desirable properties. For example, for 
school s}, a weight of 70% may be assigned to the mandatory properties and 
30% for the desirable properties. 


. A Marine possessing all mandatory properties for school s is given an initial 
score ManScorém; = ManWt,-100. Marines who do not possess all manda- 
tory properties for a school are given an overall fitness score of 0 for that 
school. 


. Of all the Marines possessing the mandatory properties, those possessing de- - 
sirable properties are awarded additional points, which are weighted by the 
level of the property. The Marine’s score for desirable properties is computed 
as follows: 


e The absolute score Abs,,,, for Marine m and school s, based on desirable 
properties is 


OS — Se Scor €jevel(p) * possesses(m, p) 
pEP(s) 


The average of these absolute scores is computed over all qualified Marines. 
Let AveAbs, denote the average absolute score for school s. 
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e Each Marine’s fitness score for desirable properties is then computed as a 
fraction of this average, and normalized by multiplying with the percentage 
weight for desirable properties. That is, DesScorem,, is a weighted relative 
score: 


AbSsm,s 


TEs) : DesWt, - 100 


IDF NOo ee | 


The overall average of all these scores is, due to the above construction, 
DesWt, - 100. 


10. The final fitness score, fztm,s is simply the sum ManScore,,, + DesScorem s. 
It may be seen that, for each school, this number averages (over all the qualified 
Marines for that school) to 100. 


11. As mentioned earlier, schools are broken down by classes that are identical, 
except for their start dates. Therefore, let f2tm, = fitm.- for each class c of 
school s. 


C. MEASURING FILL 


The second half of the objective function deals with maximizing the fill of 
school seats. We now turn our attention to this topic. 

As we discussed in Chapter II, school seats are paid for in advance. This 
is to guarantee the seat is available to the USMC. Consequently, every vacant spot 
is potentially a lost resource. Since the model is run about once every week, the 
biggest concern is the unfilled seats having report dates within the next seven days. 
Conversely, a seat having a report date in three months is not so critical. 

To capture the essence of filling school seats with early report dates, we use 
a penalty function. The idea is simple. School seats having an early report date get 
a high penalty, and those having a late report date get a low penalty. A number of 
functions would have worked for this. We have graphed two candidates in Figure 6. 
The first is a linear function and the second a large-step function. Each of these was 
tried in the prototype. In our opinion the latter one is the best choice. It gives a lot 
of emphasis to the first week, plus it treats all schools having report dates within the 


same week equally. It is the function currently implemented in the rddss. 
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Days 


Figure 6. Two Candidate Penalty Functions 


D. ASSIGNMENT MODEL 


We are now ready to formally describe the assignment model. We will first 
specify the model’s assumptions. ‘Then, we will list the model’s notation, followed by 


its objective function and constraints. 


1. Assumptions 


1. Each school is unique and identifies a single course of instruction leading to 
an MOS. 


2. In any given run, a school may offer several classes that start on different 
dates. It is more desirable to fill seats in classes starting earlier. Such classes 
have a higher penalty per unit shortfall than similar classes starting at a later 
date. 


3. All Marines available for assignment are graduating from the MCRD on the 
same date. 


4. A Marine’s eligibility for a school, as well as the fit for each school, is deter- 
mined by the model preprocessor, taking into account the PEF guarantees, 
and the mandatory and desirable properties. 


5. A Marine is assigned to a school corresponding to their PEF code, or not at 
all. 


6. It is better to leave a Marine unassigned than to overfill a school. 


RS, 


7. The demand for the number of Marines to be trained in each school class is 
determined by looking at the BNA extract. This demand statement is already 
constrained by the capacity constraint at each school. 


2. Notation 


e Sets 
M _ : Marines 
C : Classes 


e Exogenous Variables (Parameters in AMPL) 


fitm.c: the desirability of assigning Marine m to class c (note: the fitness 
score is zero for Marine-class pairs where either the Marine does not 
meet the classes mandatory properties, or where the class does not 
fulfill the Marine’s PEF guarantee. ) 


demand,: demand for Marines to be trained at class c 


penalty,: penalty for each unit of demand not met (higher value means 
it is more critical to fill the class) 


e Decision Variables 


Im.c (binary integer): 1, if Marine is assigned to the given class; 0 other- 
wise 
3. Objective 
Maximize the Total Utility: (Total Reward - Total Penalty) 


(ee (x: S> ie igs — kp [So penalty, - (demand, — yy ime) iia 


cEC MEM ceEC meM 


4. Constraints 
e assignmentLimit: a Marine is assignable to at most one school 


See Vm (III.2) 


cEC 


e eligibility: a Marine is only assignable to a class they are fit for (this prevents 
assigning Marines with a fitness score of zero) 


ea Loni Ym Ve (Like3) 
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e capacity: since penalties apply only if there is a positive shortfall, the objec- 
tive function would be non-linear. To avoid that, we assume we will never 
oversupply Marines to schools, resulting in: 


ie comand. Ve (111.4) 
meM 
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IV. A DECISION SUPPORT SYSTEM FOR 
RECRUIT DISTRIBUTION 


- 


y 

A. ARCHITECTURE AND IMPLEMENTATION 
Following is a discussion of the RDdss architecture and its implementation. 

First, the architectural components are discussed. Then, the steps taken to build the 


RDdss are described. 


1. Architecture 

The architecture of the RDdss is depicted in Figure 7. This illustration shows 
how the six major components of the system are related. We will describe this archi- 
tecture by examining each component in the following order: switchboard, relational 
database, preprocessor, assignment model, solver, and analyzer. 

The switchboard is one of two components providing an interface between the 
user and the RDdss. It is the mechanism by which the user controls the operation of 


the system. Figure 8 illustrates the main switchboard of the RDdss. It is displayed 
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Figure 7. RDdss Architecture 
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Figure 8. RDdss Main Switchboard 


when the application is started. As this illustration depicts, the user can perform the 
following functions by simply pointing and clicking on the appropriate button: import 
and export data, maintain data, preprocessing and execution of the assignment model, 
analyze results, query data, and generate reports. All the RDdss switchboards were 
generated using Access 97. 

The relational database technology was used in the RDdss [Ref. 8]. The 
actual table relationships are shown in Figure 9. These tables were developed in 
Access 97, which uses the relational technology. In addition to a few flat files used to 
communicate with the assignment model, all the data for the RDdss is stored in this 
database. 

The preprocessor is one of the two modeling components. It consists of Access 
97 Visual Basic for Applications (VBA) code that computes information necessary 
for the assignment model [Ref. 9]. It determines the demand of each class, the 
appropriate penalty associated with each class, and the Marine-to-class fitness matrix. 
The code for these assignment model inputs is found in Appendix D, lines 452-516 
and 4305-4812. 
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Figure 9. RDdss Relational Schema 


The assignment model is the other component of the modeling components. It 
has been modeled in AMPL [Ref. 10], a language and a computing environment for 
expressing, solving, and analyzing mathematical programming problems (minimizing 
or maximizing a function of decision variables, subject to constraints on the variables). 
A complete discussion of the assignment model’s math model is available in Chapter 
III, Section D. 

The next component is the solver. It communicates directly with AMPL, the 
modeling language of AMPLPlus. As mentioned in Chapter II, i uses an algorithm 
called CPlex, which is an optimization package for linear, network and integer pro- 
gramming. Working in conjunction with AMPLPlus, the solver finds an optimal 
solution. 

The final component is the analyzer. It is the other component making up the 
user interface. This is where the RDdss manager analyzes assignment results, seeking 
insights for developing a “good” solution. Insight is developed mostly by the graphs 
and numerical information available in the analyzer. These were generated in Access 
97 using its report generator and VBA code. The programming used in the analyzer 


is shown in Appendix D and includes lines 1-310, 2156-2214, and 3756-3827. 
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Figure 10. RDdss Demonstration Solver 


2. Implementation 
Building the RDdss was an iterative process. Some steps took numerous it- 


erations, and some were straightforward. Below is a listing of the 14 major steps it 


took to build the RDdss. 


1. Analyzing the current’ system was the first step. This included 1) interviewing 
USMC and DSAI personnel, 2) reviewing available documentation, and 3) 
operating the RDM. 


2. After gathering the current system data, it was necessary to develop a logical 
understanding of the system. This was accomplished by modeling it with 
BPWin. Appendix B is the result of this step. 


3. With this system understanding, it was possible to envision how the new 
system would make assignments. Using standard optimization techniques [Ref. 
11], a small-scale demonstration solver was built using Excel 97. It is shown 
in Figure 10. 


4. Combining the system understanding and the data requirements for the demon- 
stration solver, it was possible to envision a data structure for the reengineered 
system. This lead to the development of a third normal form relational schema 
for the RDdss [Ref. 3]. 
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Figure 11. RDdss Decomposition Diagram 


. Using the relational schema as a model, the RDdss tables were built in Access 


97. The results of this were seen earlier in Figure 9. 


. As the vision for the reengineered system came more into focus, an intuitive 


navigational scheme was conceived. This lead to the development of a decom- 
position diagram for the RDdss. It is demonstrated in Figure 11. 


. Using the decomposition diagram as a model, the user interface was built for 


the RDdss in Access 97. The Main Switchboard was seen earlier in Figure 8. 


. With the switchboards now in place, VBA coding was commenced [Ref. 9]. 


This made each switchboard functional and useful. 


. Building upon the concept of the demonstration solver from step 3, a for- 


mal mathematical assignment model for the RDdss was developed. This was 
introduced in Chapter III, Section D. 


The COTS applications, AMPLPlus and CPlex were installed on the personal 
computer containing the RDdss. 


With AMPLPlus now installed, it was possible to code the assignment model 
into the application. This made it possible to verify our design. 


Manually creating input files for AMPLPlus is time consuming. So, the pre- 
processor was coded. This automated the generation of the class demand, 
class penalty, and Marine-to-class fitness matrix. 


Further automation of the RDdss was accomplished by interfacing Access 97 
and AMPLPlus. This required both VBA and AMPL coding. The end result 


was a seamless operation of the two applications. 
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Figure 12. Actual RDdss Build Sequence 


14. Finally, much thought was given to ways of gaining insight into the assignment 
results. This lead to the development of the analyzer, which was discussed 
briefly in the previous section. 


Some of these steps were performed in parallel. The actual order followed in 


building the RDdss are depicted in Figure 12. 


B. USING THE RECRUIT DISTRIBUTION DECISION 
SUPPORT SYSTEM 


In this section, we will discuss using the RDdss. Three aspects are covered, 1) 
setting up a run, 2) model execution, and 3) customizing a run and results. Each is 


discussed in the order given here. 


1. Setting up a Run 

Setting up a run of the RDdss is straightforward and easy to do. Figure 13 
graphically illustrates the steps involved. Starting with step 1 on the graph and 
working through to step 3d(iii), we will discuss a run set-up. 


The RDdss manager starts at the top of the Main Switchboard. Here, he or 
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Figure 13. Setting up a Model Run 


she clicks on the Import/Export Data button. This will cause the Main Switchboard 
to close and the Import/Export Switchboard to open. From this switchboard, the 
RDdss manager will import the RD1 file and the BNA extract into the RDdss MODS. 
This is easily accomplished by clicking on the corresponding buttons for importing 
these files. Finally, the RDdss manager will click on the “Return to Main Switch- 
board” button, causing the Import/Export Switchboard to close and the Main Switch- 


board to reopen. 

The next step is data maintenance. This includes updating, editing, and/or 
deleting of school related information. The RDdss manager gets to the Maintain Data 
Switchboard by clicking on the appropriate button on the Main Switchboard. 

From the Maintain Data Switchboard, the RDdss manager will start at the 


ae 


top and work his or her way down to the bottom. The various buttons on this 
switchboard open forms where data maintenance is performed. For instance, the 
first button opens the Maintain School Data form, allowing the RDdss manager to 
create, edit, and/or delete a school. The other buttons allow similar operations with 
the PEF's, and fundamental and logical properties. After the RDdss manager has 
finished maintaining the data, he or she returns to the Main Switchboard by clicking 
on the “Return to Main Switchboard” button. 

After data maintenance, the RDdss manager is ready to perform data prepro- 
cessing in prepartion for a model run. By clicking on the Preprocessing and Execution 
button, the Main Switchboard closes and the Preprocessing and Execution Switch- 
board opens. From here, as on all other switchboards, the RDdss manager starts at 
the top and works down. 

The first three preprocessing buttons directly effect the generation of the class 
demand, class penalty, and Marine-to-class fitness matrix. This is why they come 
before the fourth button, Generate AMPL Files. Preprocessing in the correct order 
will reduce the amount of time spent setting up the run, by minimizing the need to 
generate a new class demand, class penalty, and Marine-to-class fitness matrix. 

The first preprocessing button concerns special assignments. Specially assign- 
ing arecruit affects the AMPL input in two ways. First, the respective member is not 
included in the Marine-to-class fitness matrix, since they already have an assignment. 
Second, the class demand for the class the recruit is assigned to must decrease by 
one. Otherwise, it may become overfilled. 

The second preprocessing button concerns reclassification of a Marine. Re- 
classified Marines affect the AMPL input in two ways. First, the class demand of the 
class they are no longer assigned to must increase by one. This provides an oppor- 
tunity to fill the empty seat during a subsequent run. Second, the class demand of 
the class the Marine has been reassigned to must decrease by one. Otherwise, it may 


become overfilled. 
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The third preprocessing button concerns data scrubbing, which also affects the 
AMPL input. It is an attempt to identify and correct errors relating to the Marines. 
An example is a Marine who has been given an unknown PEF. Since it is not identified 
by the RDdss, the member will receive a zero fitness score for every class. This will 
prevent the Marine from getting an assignment. 

Following the completion of special assignments, reclassifications and data 
scrubbing, the RDdss manager is ready to generate the AMPL input files. After going 
to the Generate AMPL Files form, the first concern is specifying the weights for the 
mandatory and desired properties. This is specified by the RDdss manager at step 
3d(i). What this does is indicate how important the mandatory properties are with 
respect to the desired properties. For instance, if the RDdss manager decided to give 
a weight of 1.0 to the Mandatory selection, the Desired selection would automatically 
fill in with 0.0. This would indicate the desired properties are of no consequence. The 
default for these two selections is 0.7 for Mandatory, and 0.3 for Desired. 

Next, at step 3d(ii), the RDdss manager selects the MCT graduation date 
desired. This is selected from the drop down list. Then, the RDdss manager pushes 
the “GO!” button. The system will now generate the AMPL input files, completing 


the run set-up. 


2. Model Execution 

Execution of the assignment model takes place after the run set-up has been 
completed. Figure 14 graphically illustrates the steps taken to execute the model. A 
discussion of this is now given. 

From the Main Switchboard, the RDdss manager points and clicks on the 
Preprocessing and Execution button. This takes him or her to the corresponding 
switchboard. From here, the Execute Solver/Options selection is made. This opens 
up the form where the model is executed from. 

The Execute Solver/Options form provides the RDdss manager the ability to 


set the fit and fill coefficients for the objective function. The default values are 1 for 
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Figure 14. Model Execution 


each coefficient. The RDdss manager can change either of these with a whole number 
from 0 - 100. The significance of these numbers is discussed in detail later in this 
chapter. Once the desired coefficients have been chosen, the Execute Solver button 
is pushed. 

By selecting the Execute Solver button, AMPLPlus is launched. This applica- 
tion will run without user interaction. First, it will import the RDdss mathematical 
assignment model. Next, the specified fit and fill coefficients are retrieved. Finally, 
the preprocessed data generated during the run set-up are imported. Using this in- 
put data, AMPLPlus works in conjunction with the solver and generates an optimal 


assignment solution. 
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With the generation of an optimal assignment solution, the results are sent to 
an output file called “rdm.out.” AMPLPlus, having completed its task, now closes. 
This indicates an optimal solution was found and is available for importing. So, the 
RDdss manager now imports the results by pushing the Import Results button on 


the Execute Solver/Option form. 


3. Customizing a Run and Results 

As mentioned in the previous subsection, the RDdss manager can set the fit 
and fill coefficients of the objective function. This is a key capability of the new 
system. It is the means by which the RDdss manager can customize a run and 
“game” the RDdss. This “gaming” of the new system is essential for determining a 
“good” assignment result. 

For instance, if the fit coefficient is set to 0, and the fill coefficient is set to 
a number > 0, say 1, the assignment model will maximize the fill of schools having 
early report dates. This has both advantages and disadvantages. One advantage is 
the average wait time for Marines to attend a school is minimized. Another is that 
the number of unfilled school seats, having a report date between the current and 
next scheduled model run, is minimized. However, a disadvantage is the average 
Marine-to-school fitness score is guaranteed to be the lowest score of all runs. 

Conversely, if the fit coefficient is set to a number > 0, say 1, and the fill 
coefficient is set to 0, the assignment model will maximize the average Marineto- 
school fitness. An advantage here is the increased chance of each Marine successfully 
completing their ELS, establishing a pattern of success early in theri career. However, 
one disadvantage is the wait time for a Marine to attend a school is guaranteed to be 
the longest. Also, the number of unfilled school seats, having a report date between 
the current and next scheduled model run, is guaranteed to be the greatest. 

Neither of the above solutions is ideal. A better solution is some where be- 
tween these two extremes. By changing the fit and fill coefficients of the objective 


function, the RDdss manager has a means for customizing each run to ensure a “good” 
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assignment result 1s found. 


C. INNOVATIONS IN USER INTERACTION 


A number of user interaction innovations have been made in the RDdss. Two of 
them have already been discussed. These were the intuitive navigational scheme using 
the switchboards, and the elimination of manually entering data already available in 
the system. One more note worthy innovation is now introduced. It is a date change 
innovation. 

The date change innovation concerns changing the graduation date of the 
Marines in the downloaded RD1 file. This is necessary for generating correct as- 
signment results. The date in the downloaded RDI file is based on graduation from 
the MCRD. However, the model needs to know when the Marines are available for 
assignment. Availability is based on the MCT graduation date. 

The old system solution to this problem took three steps. First, the RDM 
manager used a calendar to determine the MCT graduation date. This is normally 
27 days following completion of MCRD, and is always on a friday. So, the RDM 
manager will find the MCRD graduation date on the calendar and count 27 days. 
The friday nearest to this day is the day desired. Second, this MCT graduation date, 
along with the RD1 file, is sent to another branch in the USMC where the date change 
is made. Third, the file is returned to the RDM manager, who imports the file into 
the RDM. 

The reengineered system has streamlined this process. Within the RDdss, the 
RDdss manager makes the date change. It is accomplished with the push of a couple 
buttons. 

Figure 15 shows how these changes are made. First, the RDdss manager se- 
lects the MCRD graduation date requiring a change. Once this is selected, a calendar 
appears. Its purpose is to help the RDdss manager correctly identify the MCT grad- 


uation date. Next, the “=” button is pushed. Its purpose is to add the number of 
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Figure 15. Changing a Graduation Date 


days specified in the “Days” field (default is 27), to the MCRD graduation date. This 
updates the calender as shown on the far right. When the correct date is found, the 


“Change Date” button is pushed. This makes the desired change to the data in the 
RDdss database. 


D. INNOVATIONS IN ANALYZING MODEL RESULTS 


As discussed earlier, the RDdss manager has the capability of “gaming” the 
system by using different fit and fill coefficients. However, having this ability is not 
enough. The RDdss manager still needs a means to compare one run against another. 

It is hard, if not impossible, to estimate the quality of a solution simply by 
looking at a list of assignments. The actual assignment results depend on the values 
of the fit and fill coefficients, which cannot be set at the ideal levels without under- 
standing the impact on solution quality. So, analyzing run results to get insight and 
develop a “good” solution is now discussed. 

Four measures are considered particularly useful in evaluating alternative so- 


lutions. 


1. Fitness premium. The Marine-to-school fitness function is defined in a way 
that for each school, the average fitness over all Marines eligzble for that school 
is 100. So, for any school, if the average fitness computed over Marines assigned 
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to that school is greater than (or less than) 100, the difference represents a 
positive (or negative) premium. 


2. Unfilled seats in first week. Since the model is run nearly every week, seats 
left unfilled in classes starting in the first week will remain unfilled. This 
represents wasted resources. 


3. Average wait time for Marines. Experience has shown that the longer a Ma- 
rine waits before attending their ELS, the greater the chance of disciplinary 
problems. Therefore, it is generally better to keep this wait period short. 


4. Unassigned Marines. A purpose of the system is to assign each Marine to a 
school. Therefore, knowing the number of unassigned Marines is an important 
measure. 


To provide the RDdss manager insight into the assignment results, these mea- 
sures have been incorporated into output representations, including summary statis- 
tics and detailed graphs. Each output provides both numerical and visual informa- 
tion. The numbers are used for quantitative comparisons. The graphical information 
provides a big picture view for use in a qualitative comparison. 

As an example, consider the two fitness graphs in Figure 16. Both of these 
were produced using an RD1 file of 344 Marines and an BNA extract with school data 
covering a 120 day period. Below each graph is amplifying and numerical information. 
The bar chart on the left has a fit coefficient of 0 and a fill coefficient of 1. Additionally, 
its fitness premium is 28 (=128-100). The bar chart on the right has a coefficient of 
1 for both fit and fill. Its fitness premium is 38 (=138-100). The fit numbers are 
quantitatively comparable. The fitness premium for the run on the right is 36% 
(=100% x [38-28]/28) better than the run on the left. 

The above numerical analysis is also supported by visually comparing the bar 
charts. Notice the large number of blips falling below the fitness score of 100 on 
the left graph. Each blip represents a Marine, and there are actually 44 of them. 
Conversely, notice the comparatively small number of blips below 100 on the right 


graph. There are 21 of them. The visual comparison of the two graphs reveals the 
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Figure 16. Two alternative results: Fit 
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Figure 17. ‘Two alternative results: Fill 


qualitative difference. The graph on the right indicates a higher quality Marine-to- 
school fit. Of course, this supports the numerical comparison performed earlier. 

As another example, consider the two fill graphs in Figure 17. These are 
based on the two model runs just described. In other words, the left graph has a fit 
coefficient of 0 and a fill coefficient of 1, and the right graph has a coefficient of 1 for 
both fit and fill. 

Visually, these two graphs display an obvious difference. To appreciate how 
they are different requires an understanding of the significance of the blips. As note 1 
of each graph indicates, “The classes are ordered by penalty from highest to lowest.” 
Recall from Chapter III, this means the ordering is by class report date, starting with 
the earliest date. In other words, the bar chart on the left indicates almost every 
Marine will start school within the first three weeks. As discussed earlier, this is 


desirable. The bar chart on the right has its blips more spread out. So, by visually 
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comparing the two graphs, the left one has a higher quality with respect to minimizing 
wait time. 

This is easily validated by the numbers given in note 5 of each graph. The 
average wait of a Marine from the left bar chart is 1.33 weeks, and the average wait 
from the other bar chart is 1.69 weeks. Now we quantitatively compare these values. 
The results from the left graph are 27% (=100% x [1.69-1.33]/1.33) better than the 
right. 

In the following table, the results from three runs are given. The measures on 
the left are the four measures described earlier. Each run used the same 344 Marines 
and 120 days worth of school classes. The information for the first and third runs 
is from the two model runs discussed above. The second run was determined by 
“saming” the system. In other words, we tried numerous combinations of the fit and 
fill coefficients until a “good” solution was found. Run 2 was the result. Understand 
though, we are not saying “best” solution. Only the USMC can determine what is 
best for them. 


Run 1 Run 2 Run 3 
(it=0; ere) eee — Ir aay (hitler — 1) 


Unfilled Seats (ist week) 
a eS 


Unassigned Marines . 
Average Wait (weeks) 33 1233 1.69 
28 i m8 


The reason we feel Run 2 is a “good” solution is based on a quantitative 





comparison of the measures and one additional piece of information. It is the fact 
the USMC feels it is more important to minimize wait time than to maximize the 
Marine-to-school fit. The remainder of this section explains how we decided Run 2 
was a “good” solution. 

Starting with the values for unfilled seats, it is obvious all three runs are equal. 
The same is true for the unassigned Marines measure. So, these two measures provide 


no insight for comparison purposes. 
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Concerning the average wait, the values of Runs 1 and 2 are equal. Further, 
their 1.33 value is numerically smaller than the 1.69 value of Run 3. This is good for 
Runs 1 and 2. As was proven earlier, a value of 1.33 is 27% better than 1.69. 

Finally, there is the fitness premium measure. The first observation made is 
that Run 1 is a candidate for elimination. The reason is as follows. Run 2 has the 
same score as Run 1 for the first three measures in the table, but it shows an 11% 
(=100%x(31-28]/28) increase in the fitness premium. So, Run 1 is eliminated from 
the competition. 

This leaves the last two runs. Run 3 shows a 23% (=100%x([38-31]/31) increase 
in fitness premium over Run 2. This creates a conflict. Run 3 has a 27% increase in 
average wait time, which is bad. Conversly, it has a 23% increase in fitness premium, 
which is Pace To decide which solution is better, more information is necessary. This 
comes from the fact mentioned earlier, that the USMC feels it is more important to 
minimize wait time than to maximize the Marine-to-school fit. 

We can now conclude Run 2 is a better solution than Run 3. Here is why. Run 
2 minimizes average wait by 27% by giving up a 23% increase in Marine-to-school fit. 
This agrees with the USMC desire to more strongly emphasize a minimum waiting 
time. So, Run 2 is a better solution than Run 3. Since it also satisfies the known 


desires of the USMC, we feel it is a “good” solution as well. 


EK. OBJECTIVE COMPARISON OF OLD AND NEW 
SYSTEM SOLUTIONS 


In the previous section, we described how a set of solutions generated by the 
RDdss are compared to determine a “good” solution. Using the same approach, we 
now demonstrate how to objectively compare the results from the old system with 
the new system. This provides the USMC a means of determining which system’s 
solution is better, if either. Comparison of the new and old system results has been 


made easy by automating the importing of the RDM result into the RDdss. 
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We have summarized the important data for the old and new systems in the 
following table, based on the same 344 Marines and 120 days of school classes dis- 
cussed earlier. Since the assignment algorithm for the RDM was designed to maximize 
fill, a run from the RDdss based strictly on fill has also been included. It is the run 
with a fit coefficient of 0, and a fill coefficient of 1. The last column, labeled “Run 


2,” is a “good” solution we found by gaming the RDdss. 
Run 1 RDM Run 2 


We start by objectively comparing the RDdss fill-based result with the RDM 











result. They are labeled “Run 1” and “RDM,” respectively. As we shall prove, the 
RDdss has done a better job at filling early school seats than the RDM. 

Of the four measures, only one provides any useful insight for this comparison. 
It is the average wait measure. The reason the other three do not apply is as follows. 
The first two measures have the same values, so they provide no insight. The last 
measure is not too meaningful, since Run 1 is strictly based on maximizing fill. In 
other words, it disregards fit because its fit coefficient is set to 0. This leaves the 
average wait measure. 

A quantitative comparison of the average wait shows the RDdss solution is 
1% (100%x/[1.34-1.33]/1.33) better than the RDM solution. This is explainable by 
considering the approach used in each model. The RDM assignment algorithm maxi- 
mizes the fill of early school seats by looking at each school in a sequential fashion. In 
contrast, the RDdss conducts a global comparison of Marines and schools. In other 
words, it goes through numerous iterations until it finds an optimal fill solution. This 
show that the RDM assignment algorithm is only closely approximating the optimized 


assignment result. 
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Finally, we “gamed” the new system until a “good” solution was found. This 
is Run 2. It has a fit coefficient of 1 and a fill coefficient of 10. 

The objective comparison of the RDM and Run 2 solutions is straigtforward. 
Since the first three measures are the same for both results, they provide no insights. 
This leaves only the fitness premium measure. A quantitative comparison of this 
measure shows Run 2 has a 10% (100%x[32-29]/29) better solution than RDM. This 
shows the benefit of “saming” the RDdss. 


F. SUMMARY 


This relatively long chapter covered some important points related specifically 
to the RDdss. The architectural components of the new system were discussed first, 
followed by the steps taken to actually build this DSS. Then, from an operational point 
of view, using the RDdss was discussed. This included setting up a run, executing 
the model, and customizing a run for determining a “good” solution. Next, two 
innovations were discussed in great detail. These included the date change innovation 
and the analyzing model results innovation. Finally, a means of objectively comparing 
the solution from the old and new systems was discussed. 

We truly believe the innovations and capabilites introduced by this prototype 
can greatly benefit the USMC’s Marine Enlisted Assignments branch. It can help the 
USMC to more effectively accomplish its mission as stated by the Commandant of 
the Marine Corp, “to put the right Marine in the right place at the right time with 
the right skills and quality of life.” 
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V. CONCLUSION 


This concluding chapter has three short sections, followed by a final comment. 


In the first section, we reiterate the significant contributions made in the thesis. This 


is followed by a brief description of some lessons we learned. Then, some recommended 


improvements for the prototype are given. Following this last section, we comment on 


how this thesis work might benefit the other branches of the United States military. 


A. 


SIGNIFICANT CONTRIBUTIONS 


Four significant contributions beneficial to the USMC were made in this thesis. 


These were discussed in detail in the previous three chapters. A list and summary of 


the contributions is given here. 


1B. 


Analysis and articulation of the recruit distribution process - by interviewing 
USMC and DSAI personnel, reviewing available documentation, and oper- 
ating the RDM we were able to articulate an understanding of the recruit 
distribution process using IDEF process modeling. Additional data modeling 
was articulated in a third normal form relational schema. 


Development of a mathematical model - by analyzing the assignment process, 
criteria, and constraints, USMC policies and objectives, a mathematical model 
for the new system was developed. 


Fully functional prototype - an intuitive and easy to understand new sys- 
tem that seamlessly interfaces with the old system was built. It provides an 
objective means of comparing assignment results of both systems, and was 
developed using COTS software applications. 


Elimination of the proprietary solver and associated contractor lock-in - this 
was accomplished by replacing the proprietary solver with two COTS appli- 
cations. 


LESSONS LEARNED 
Our original goal was to build an As-Is IDEFO model of the RDM, about two 


months after starting the thesis. This worked out fine. The next goal was to take 
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another six weeks to develop a To-Be IDEFO model |Ref. 1]. This did not work out, 
for two reasons. First, our understanding of the entire recruit distribution process 
was still not mature enough to build the To-Be model. Nearly half a year was spent 
just thinking about its many details. Second, it is nearly impossible to envision the 
new system without first knowing the capabilities and limitations of the application 
used to build the prototype. One extreme envisions the impossible, while the other 
barely touches the reengineered system’s potential. The lesson learned from this was 
that properly reengineering a process requires two things. A detailed understanding 
of the current process environment, and a good working knowledge of the capabilities 
and limitations of the application used to build the prototype. 

Getting feedback from the Marine Enlisted Assignments branch was not always 
easy. Correspondence normally occured by e-mail. There was an inverse relationship 
between the number of questions asked and the number of answers given. As the one 
increased, the other decreased. So, another lesson learned was that it is best to limit 
each correspondance to a question or two. 

While writing code, it is best to simultaneously document the code’s purpose. 
Going back and trying to provide documentation at the end is too frustrating. This 
requires a considerable amount of discipline, but is well worth the effort. The lesson 


learned here is document as you code. 


C. PROTOTYPE IMPROVEMENTS 
A big part of this thesis involved the building and refinement of the prototype. 


The following topics are areas where the RDdss could use improvements. 


1. Speed Improvements 
a. Preprocessing Data 
Of all the steps necessary to complete a run of the RDdss, the prepro- 
cessing step is the most time consuming. For the 344 Marines and approximately 


500 school classes analyzed in this thesis, it takes about 30 minutes to preprocess 
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this data. This is about ten times longer than the assignment model takes to find 
an optimal solution. As the size of the preprocessing data is doubled, so is the time 
needed to preprocess it. Finding a way to speed up this process is desirable. One 
possibility is to find a way to perform all the preprocessing in main memory, with 
only two accesses to the hard drive. The first access is to get the necessary Marine 
and school data. The second is to write the preprocessed results back to the hard 
drive. 

b. Analyzing Result 

Compared to all other forms and switchboards in the RDdss, opening 
the “analyze results” forms is the most time intensive. With the 344 Marines and 
approximately 500 school classes, it takes just under a minute for any of these three 
to open. This feels like an eternity when you are in a hurry. The reason it takes 
so long is the creation of temporary tables, numerous calculations and comparisons, 
and retrieving of data from flat files. Finding a way to reduce this time is desirable. 
One possibility is to create another form which would contain only the four objective 
measures. Currently, the RDdss manager must go to two different forms for this 
information. Each containing information and displays in addition to the objective 


measures, which slow them down. 


2. Multiple Solution Storage 

Currently, the prototype will only save the results of one solution. This means 
the RDdss manager must either print-out hard copies of the graphs, or manually 
write down each solution’s objective measures for comparison with other runs. An 
improvement here should allow the storage of at least three solutions. This would 
permit the RDdss manager to easily compare each solution. He or she could then 
eliminate one or two undesirable solutions, while continuing to search for a “good” 


One: 
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Se Administration Switchboard 


To look at all the schools or properties in one display, the RDdss manager 
must open up the associated school or property table. A reason for doing this is 
system administration. For instance, if a supervisor is auditing the RDdss’s property 
data, looking at all the data at one time is convenient. A simple way of including 
this feature is by adding another switchboard. The switchboard’s buttons would have 


VBA code associated with them, causing the desired tables to open. 


Any benefits derived from this thesis work were specifically aimed at the 
USMC. However, it does not have to end there. Like the USMC, other branches 
of the United States military must deal with the problem of how best to assign their 
service members to schools. Since all the services require their enlisted personnel to 
take the ASVAB test, the approach used in our prototype might prove an ideal solu- 
tion. Further, our efforts may also contribute to the reengineering of other assignment 
models. So, this thesis work could actually benefit all branches of the United States 


military. 
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APPENDIX A. ACRONYMS 


Acronym=> Meaning 


AMPL 
ARMS 
ASVAB 
BNA 
BPWin 
cols 
CPlex 
DSAI 
DSS 
ELS 
ICOM 
IDEF 
IDEFO 
MCRD 
MCT 
MODS 
MOS 
PEF 
Fav i 
RD3 
RDdss 
RDM 
USMC 
VBA 


A Modeling Language for Mathematical Programming 
Automated Recruit Management System 
Armed Services Vocational Aptitude Battery 
By Name Assignment System 

Business Process for Windows 
Commercial-off-the-shelf 

Optimization Package for Complex Linear, Network and Integer Programming 
Decision Support Associates, Inc. 

Decision Support System 

Entry Level School 

Input, Control, Output, Mechanism 

Defense Institute Modeling 

Business Process Modeling 

Marine Corps Recruit Depot 

Marine Combat Training 

Military Operational Data Store 

Military Occupational Specialty 

Program Enlisted For 

Recruit Distribution Input File 

Recruit Distribution Output File 

Recruit Distribution Decision Support System 


~ Recruit Distribution Model 


United States Marine Corps 
Visual Basic for Applications 
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(|aecomenses. dee 
NOTES: 123456789 10 [Tpusucaron | SCSCS~«*d 


MODS 


Approved Assignments 


RD1 File Data 


Acceptable 


Maintained Result 


Data 


me Preprocessing 
: Sas : 
Special Assignments SS _ ee xection 


ee cn 


Unacceptable Result a 
Result a. 
Qu ery Data Query Results 
DSS 5 
Manager : 


Generate 


Report 
6 


NUMBER: 


AUTHOR: Kevin J Snoap DATE: 9/17/98 READER DATE | CONTEXT: 


PROJECT: RD DSS 


[[aecommenneo SCS 
NOTES: 123456789 10 | | PUBLICATION ee > ae 


RD1 Fil : 
ile Import RD1 File ff Imported Data 


BNA E 
elas Import BNA Extract f 


Acceptable Result 


DSS 
Manager 


NUMBER: 


Import/Export Data 
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USED AT: AUTHOR: Kevin J Snoap 
PROJECT: RO DSS 


NOTES: 12345678 9 10 


MODS 


Unacceptable 9 
School 


Imported 
Data 


DSS 
Manager 


AUTHOR: Kevin J Sncap 
PROJECT: RD OSS 


NOTES: 123456789 10 


Special 
Assignments & 
Reciassifications 


Unacceptable 
Result 


Imported 
Data 


Maintained 
Data 





DATE: S796 CONTEXT 
nev. vessel [ort dT Sid 
[[Recommendeo___f 
| pusucaion [id 


School to 
PEF Maint. 


School to F 

Property 

Maint. [| Maintained 
Data 


DATE: 9/17/98 MM WORKING = ==—s| READER OATE | CONTEXT: 

Revi mizame | afrare 
[_ [RECOMENDED a = 
[[PusuicATion a 55 


Required 
Preprocessing 
Data 


Preprocessed 
Data 


Execute 
Solver/Options 
sf 


AMPLPlus 


Bh Preprocessing & Execution 
(es 
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AUTHOR: Kavin J Snoap 
PROJECT: AD OSS 


[[recomwenseo CS 
NOTES. 123456789 10 oe PUBLICATION a. 


Analyzed 
Result 


AMPL Result Assignment 


Results 


Analyze 
Unassigned : Unacceptable 
; Result 
Marines 


Analyze School fF Acceptable 
Assignments [ Result 


DSS 
Manager 


Analyze Result 


AUTHOR: Kevin J Snoap 
PROJECT: AO OSS 


[ [Recommended [| Cd 
NOTES: 12345678910 = PUBLICATION oe ee ae 


Query Manne’s f 
School Fitness 


Query School's “peel! 


Eligible Marines 


2t0 


Query School's 
Class Penalty 


Query Data aie 
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USED AT: AUTHOR: Kevin J Snoap 
PROJECT: AD DSS 


NOTES: 123456789 10 


Generate Assigned], 


Marine Report 


DSS 
Manager 


DATE: 9/17/98 MM WORKING = = —_—| READER DATE | CONTEXT: 


jrecommenceo fd 
[Trusucation [Sid 


Generate 
Unassigned Marine 
Report 


Generate Entry 
Level School 
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APPENDIX D. 


: 
" 


VAlvibute VB_Name @ “Form _trrAnaly20Resui™ 
Atvibuw VB_Crealabie « Tro 

Atvibuts VB_Precieciaredd « Truo 

Annbuw VB_Exponad «= Fane 


RDDSS VBA CODE 


131 128 Resume Exit_Command _Cick 


1X2 «129 


133 = 130 End Sub 


134 131 
138 132 


13% 133 Prnate Sub Form Desc tvate() 


Unaeegned mannes buton 230 * Resel the flag 


1 
2 
3 
4 
5 Option Compare Database 137 134 
6 Option Expicit 136 © §=6 135 If booSchoolAssignment Then 
7 139 136 
8 Osm booSchoolAssgnreani As Boolean 140 137 Dum s¥Sh. As Sring 
"1 r) 141 138 Dwn! As integer, j As Integer 
12 10 142 139 Dim rec As Recordset, rec! As Recordsel, rec? As Recordset 
13 11 Prvew Sub bnEt_Cicki) 143-140 Dim db! As Cataheso 
14 12 On Esvor GoTo Esr_binExt_Cick 144 «141 
15 13 4S 14 Set db! @ CurrentDO() 
18 14 146 143 
7 15 OoCmd Crs 147 144 * Create a wbis tO Opt the fil and fd waght used curing the 
18 18 148 0 8©=«145 Applicaton SelCpton “Confirm Acton Quartes’, Faise 
19 17 Extben€xt_ Click 490186 * Deiew the while if It already exists 
20 18 Ext Sub 150 147 Oelate Table 
21 19 181 148 
22 20 En _bnExdt_Cick 152 149 bi. Eweute “CREATE TABLE PERCENTAGE (CourseNusrber TEXT, AMOS 
vA) 21. «= MagBax Err. Descripton 183. TEXT, Quota INTEGER, Assigned INTEGER, Percentage INTEGER).” 
24 220» Reesre Exit binExt Cick 154 150 Applicaton. SetOption “Confirm Acton Queries”, True 
a 2 185 151 
26 24 156 182 sySQL » “SELECT * FROM PERCENTAGE:” 
r44 25 End Sub 157 183 Sei rec @ db! .OpenRecordsat(s¥SOh , dbOpanDynased 
2 26 1588 = 1S4 
2 27 Private Sub binSchootAssigarents_Cick{} 1s@ «48S s¥SQ1 « “SELECT * FROM ary TotmsQunmForRun ORDER BY 
K¢) 28 On Error GoTo Err_btnSchoolAssignrrants_Cick 160 186 Set rec] = db1.CpenRacordset{s7S QL, dbOpanSnapsho!) 
3 2 181 157 s¥SCi ea “SELECT ° FROM gy ToteiQuomFilecForRun ORDER BY 
2R 30s Dam stDocName As String 162 SCourseNumber_FK,° i 
n un Dim stunkCritoria As String 163 156 Sei rec? = db1 CpenRecordset(seS CL, dbOpenSnapshe)) 
u 2 164 188 ‘ Ensure there are valves in the records. 
ci) 23°‘ Sel tho fag 165 160 if cac 1 EOF @ False Then 
% 34 = booSchoolAssignment e Truo 168 181 If rac2. EOF » False Then 
Kr 3s 167 162 tect MovoLast 
33 360‘ Cine the current form 168 163 rec 1. Move First 
A] a7 DoCrrnd Close 169 164 tec2. MnveLasi 
40 3 ‘Open epecified form 170 165 rec? Move First 
4) 3 stDocName « “tarGchoolAssignment” 171 166 * Fil the PENALTY table with the quote vatues for the 
2 40 = DoCrncd. OpenFarm siDocNarns, , , sLinkCritoria 172 167 For ie ? To rec) .RecordCoun! 
43 41 173 168 rec. AddNow 
44 42 174) 169 rec'Coursehuurber « rec 1|SCourseNurnber_FK 
4S 43 Ext DnSchoolAssgrrents_Cick 175 ~=—«170 feclAMOS e« rec TIAMOS_FK 
48 44 «Ext Sub 17% 8 8=6«179 fec}Quota = rec t!SusmOF Quota 
47 4s 177 172 rec.Updmae 
48 48 En_bmnSchoolAssignments_Cicic 178 173 tec 1 MoveNend 
48 47) = MegBax Err. Descriptan 179 ~=—(«174 Nox | 
SD 48 Reem Exit_bmnSchoolAssgrrons_Cick 180 175 rec. Moor irsi 
51 49 181 176 * Updaie the PENALTY tbte with the percentages of quo 
s2 50 End Sub 12 (N77 For ie 1 To rec. RecordCouni 
$3 51 183 178 fec2 MovoFirs! 
S4 S52 Prva Sub bnSotverAssgurents_Cick{() 184 179 For } = 1 To rec2 RacordCoun! 
5S S3 On Error GoTo Err_binSotar Asugnments_Cick 185 180 If rec!CourseNurrber = rec2)SCourseNurrber_FK Then 
56 S4 1860=—«181 If ractAMOS « rac2!AMOS_Fr Then 
Ss? 5S Own stDocName As Sting 187 182 rec Edit 
58 56 Dam stUnkCriteria As String 188 183 tec Assigned = rec2CounIOlFiscal¥ ear _PIC 
SB s7 189 184 roc |Percentage « int{(rectAssgnod / 
60 se ‘Chose the cuter form 190 fec'Quota) * 100) 
@1 8 OoCrrd Ciose 191 185 tec Updae 
&2 60 = Open specified form 192) 186 Ew For 
63 61 stDocName = *irmAssqnmenRest 193 187 End It 
64 €2. Dom Qpen-orm Narre, ,. SLinkCrnwene io 188 End tf 
65 6&3 195 189 fec2. MoveNoxt 
66 64 Ext_bmSolerAsmgnments_Cick 196 190 “Tt no match was found, then he percent fill is 
67 65 Est Sub 197 191 If | = rec2. RecerdiCount Then 
68 66 198 192 coc Edt 
& 67 Err_bmnSoherAssigwrents_Cicic 198 190 teclAssigned = 0 
To 68 MagBox Est. Descripfion 200 194 rec!Percentage = 0 
71 68 Resume Ex\_binSokerAssonmnmnts Click a1 195 vec .Updaso 
72 70 22 196 End ft 
73.71 End Sub 203«—«197 Newt } 
74 72 204 198 rec.MoveNend 
rt 72 Privaw Sub binUnassigedMarines _Cick{) 206 199 Nez i 
78 74 On Estos GoTo Esr_benUnessgedMannes_Cick 26 20 oO 
7 re 207) 201 End tt 
73 78 280 
ve 77 = Dam @rSQ As String ae 20 End it 
80 738 Dumrec As Recordast 210 204 
81 73 © Dwncb1 As Database 2u 205 rec Clone 
&2 60 212 206 rec! Clone 
[ <) 61 Set cb! = CarrentDo() 2130207 tec? Ciose 
84 «2 2140-208 1. Close 
as 83s‘ If the number of unassigned rrarines © 0, then disable the 25 486 208 
86 218 
8&7 84 = SCL @ SELECT Caun(PEF) AS Totmlnassgned FROM 217211 booSc hoalAssionmen! = False 
f- :) as Sel rec = db1.OpenfecordsexstSOL, dbOpenSnapsho!) 218 212 Eme 
2) 86 —s I rec'TotUnasaigned « 0 Than 21% = 213 ‘ Deiew the PERCENTAGE table 
[>a] a7 MegBox {° AS Marines wore sasigned.”) 20 214 Delete Table 
91 668 Ehso 221 215 Endl 
gw 89 22 = =216 
t<) 90 Dam stDocNarre As Siring 2230217 End Sub 
o4 01 Dam siLinkCriwela As String 224 
i> 9 92 
86 =<) * Close the current form 225 Form trnAssgrerentesua 
97 94 DoCrit Case 2260 | Cot 
98 in " Open specified form 27 1 Altlbuw VB_Name « “Form _irmAssignuronttemil 
98 06 stOocNarte « “innUnasspnedMannes” 228 8 2 #Atribute VB_Creamhie @ Trus 
100 «9-97 DoCra OpenForm stDocName, , , sLinkCritene 229 «3s Atntute VB_Predeclaredid e Trus 
101 oa VA. 9) 4 Afnbute VB_Eposed = Fake 
102 #8 Endl YA) 5 Opeon Carmpare Dathess 
103-100 222 3898 Option Emécit 
104 101 a 7 
105 102 Exit_pinUnaes pediarines_Cicic yA. a: 
106 103 ExiSub 235 = 9 Ss Privae Sub Form Current) 
107-108 y< 7 [°) 
108 106 Err_deUnesgedMannes_Cici. a7 11 arm svSCh. As Sting 
109 106 MsgBox En. Descripton 23 12. Dimrec As Recorcset 
110 107 Resume Ext_binUnasmegecdMarines_Cick v4.) 13 Dimdb! As Database 
wi 108 240 14 
112 109 End Sub 241 1S Set db! = CurrentDo() 
W13 110 242 16 
114 111 Private Sub Conrrmncdt_Cicid) 243 17‘ Cabculates the high, average. and iow filness scores. Also, i? 
115 112 On Estor GoTo En_CornrsrenctB_Cick 244 Caiculaies the nustber of sciver esugwrent. 
1180-113 245 «18 = s¥SCt = “SELECT AvpiFitress) AS Average, Mood Finess) As Maerrum, 
117 114 (Oim stDocName As Sring 246 Min(Finess) As Mnemumn, Count(Finess) As TomlAssgned FROM 
118 115 Dam stunkCrteria As Sing 247) = atyAsagrrenfieng,” 
119 318 248 19 Sei rec a db? OpenRecordset{s7SOL, dbOpenSnapshol) 
120 «117» «* Chose the current form 249 «20s Mw xt ince Avg & Ini{rectAveraga) 
121 118 4«©DoCmrnd Cine = 21 Me tdFitnessiMex e rec’ Meuhmum 
122 119 ‘Open specified form 21 22 #3 Me &inessMn © rec!Minenun 
123. 120 stDocNarmp e “trrmROM_Main_Switchboarct” 22 23 Me.btSoverAssgnrents = recl owlAssgned 
124 121 DoCrdOpenForm sibocNarrs, .. slinkCritena a3 O24 
125 122 4 8 8=625— ‘ Calculates the nurrber of manual assig¢vtent, and the tot! nurber 
1260 1Z Et Consmand®§_Cick 25 ~~ of asagren. 
127 «124 «=6Extt Sub S6& 2 wSQ. e “SELECT CounfAcagnmentType) AS ToteMnnualAsmgned FROM 
128 8125 27) —saqry Manually AssqnedVannes* 
128 89128 Est_Cornrrand®_Cick S& 27 Solrec = dt OpenRecordast(s9SOL dbOpenSnapshot} 
130 40127 ©(MegBax Err. Deactipton 29 89628) Me bdManualAsegwrens e rec! TowlManuatAssigned 
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Me btSoner Assugrrrants 


31 ’ Cak.utales fhe number of unassigned irarines, and the intal number 
of assignable marines 

svSQL = “SELECT CounXPEF) AS TotalUnassigned FROM 

Set rec = db1.OpenRecordsat(sySOL. dbOpenSnapshot} 

Me bdTotalUnassgned = rec!TotaJUnassigned 

Ma bfTotalAcsignahie = rec!TotlUnassigned + 


* Crea a lable to get the fit and tit warghts used dunng the run 
Applicaton. SetOptan “Confinn Acton Queries’, False 
dbt.Eancut “CREATE TABLE CONSTANTS (ConstantName TEXT, infValue 
DoCmd Transfer Text ac imporiFimed, “Acim_Data Export Specification’, 
CONSTANTS, °C:\ToBeRdam\AmoiDatavam dar 

1 Applicaton. SetOption °Confirm Acton Queries”, True 


SEBBESERRRKRASB 


& 


stySQL = “SELECT tntVaiue FROM CONSTANTS;* 

Set rec = db1.OpenRecordsetsySOl_ dbOpenSnapshot) 
Me tdFitWaight = ractiniValse 

rec. MoveNex? 

rec MoveNext 

Me ddr ilWeigh! & reciintVaiue 

rec. Close 


’ Remove fhe created tabie 
db1. Execute “DROP TABLE CONSTANTS.” 
db1_Cinse 


End Sub 
Privaip Sub Ciosa_Cick{) 
Cn Error GoTo Err_CGoose_Ciick 


Oam stDoc Name As String 
Oam stlinkCritena As Sting 


* Close the current torm 

DoCind, Cosa 

* Open specitied form 

stDocName = “frmAnalyzeResuit 

DoCrnd. OpenFarm stDocName,. . stUinkCriteria 


Ext_Ctose_Cick. 
Ext Sub 


Ern_Ctose, Cac 
MsgBox Ert Description 
Resume Ext Cose_Cick 


End Sub 


1 Atribute VB_Name = “Form_frmChangeG adDab* 
2 = Atibute VB_Creatabie = True 

3 Aftribute VB_Predeciaradid = True 

4 Attribute VB_ Exposed = Fase 

S Opbton Compare Database 6 

& Opton Explicit 

7 

8 Private Sub binChangeDate_Cicid) 

9 


10 ' Change the specified graduation date ln fhe MARINE table 
1 Appication. SetOption “Confirm Acton Queries”, False 

12 OoCrmnd. OpenQuery *qryChangeG adDawe” 

13. Application. SetOptan °Confinn Action Queries”, True 


15 * Update the drop down Ist for MCRD Grad Date 

16 MelcmbMCRDGradDate RowSource = “SELECT DISTINCTROW 
lary MCTG adDaty) [GadDate] FROM [qryMCTGradDawy],” 

17 

18 ' Force user te refresh data before performing another dalm change 
19 MoelcmibDays. Enabled = Fake 

20 = Maltd MCTGradDate Enabled « False 

21 Me!binEquals. Enabled = False 


‘ Provide a message indicaling the change was made 
MsgBox “Dats change was successfull” 


End Sub 
Prete Sub binE quals_Cick() 


Ov varDate As Variant 
Dim intDays As integer 


intDays = Me.cmbOays 
varDate = Me crbMCRDGradDate 


It tsNu&varDate) = Fake And isMua(iniDays) = Fase Then 


’ Formal tis dain tor use In the DataAdd functon 
varDate = FormativerDaw, °8222/88/00") 


* Add 120 days to Tis dale 
var Date = DateAdd(d”, intDays, varDawe) 


’ Change calendar te tis dale 
Me!ctCalenday Value = varDate 


’ Comert the new date back inip he orignal tormat 
var Date = Format{varDaw, “yyyymmdd"} 


’ Place the new date in the “upper dats bound” tex bax on the 
ing torm, 
Me taMCTGradDate = varDale 
* Allows user te change the graduatan date in the MARINE lable 
Me!binChangeDawe Enabied = Trus 
End It 
End Sub 
Private Sub embMCRDGradDate_Alter Linda to) 
Oum varDate As Variant 


var Dato & Me cm)MCROGradDae 
MottdMCTGadDate Value = °* 


{ft lsNu@(varDate} = Faise Than 


’ Format tis date lor use in the DataAdd functian 
varDate = FormativarDate, “#882/82/22") 


calenda te fis dale 
Mealc Calendar Value - varDate 
MolctCalendar Visibie « True 
MelcrbDays Enabled = True 
Mo! IMCTGr adDate Enabied = True 
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100 
101 
iw 
133 
104 


106 


106 


Mei binEquals Enabled = True 
End It 
End Sub 
Private Sub Farm_Current) 


MelciCalanday Visible = False 
MelcmbDays. Enabled = False 
Mel4MCTG adDate Enabled = F alse 
MelbinE quails Enabied = False 
MalbinChangeDals Enebled = False 


End Sub 
Private Sub Close_Click() 
On Error GoTo Err_Closo_Cick 


Cam stDoc Name As Sting 
Com stUnkCritera As String 


’ Close the current torm 

DoCmd Close 

* Open specified form 

stDocNams = “tm mport/Expor tS tchboard” 
DoCmd.CpenForm stDocNarme, ,. stUinkCntana 


Exit_Close_Céc ic 
Endt Sub 


Esr_Ciose_Ciick: 


107 MsgBox Err Descnpban 


108 


103 


110 


Resurne Exit_Ciose_Cick 
End Sub 


427 Form trmGass 
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CON Oaw% = 


i 


Atribute VB_Narme = “Form _irmCtass” 
Attribute VB_Crealabie = True 
Atritete VB_Predeciaredid = True 
Afribute VB_Expased = Fase 

Optan Campare Database 

Opton Expicit 


Private Sub binFindSchool_Click{) 
On Error GoTo Err_binFindSchool_Cick 


Screen. PrevousContol SetFocus 
DoCrnd. DoMenu! tem acFormBar, acEditManu, 10, , acMenuVer70 


Exit_binFindSchool_Cicic 
Ext Sub 


Ert_binFindSchool_Click 
MsgBox Err Deseriptian 
Resume Exit_binFindSchool_Céck 


End Sub 


frmClassQuolaPenaly AndFit 


gf 


OOenn naw — 


Atribute VB_Name = ‘Form trmCtassQuotaPenally AndFit 
A®ribute VB_Creatable = True 

Afribute VB_Predeclaredid = True 

Alrite VB_Exposad = Fake 

Option Compare Database 

Opron Explicit 


Private Sub binGo_Cick() 
Om verUDateGaund 
Oim inghour As Long, IngMin As Long, IngSec As Long 
Oim IngStart As Long, ingEnd As Long 
Orm swSQl, As String 
’ Starts he tmer for dispaying he ime takan tar Tes subroutine 
ingStart = Timer 


* Prevents the user fram going back te change the MCTGadDate unl a 


tithess fie ts 


20 
21 
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x 


RIBSLSSEVE 


‘ made, of fs reset bufion 1s pushed 
MeIMCTG adDatwe. Enabled = False 
var UDateBound = Me UDateBound 


* Generals the quota and penalty files 
CQuota_Penally (vw UDabeBournsd} 


’ Update the Quota/penalty racords on fus torm 

stSQ_ = “SELECT DISTINCTROW [CLASS].[SCourseNumber Fi]. ° & _ 
*{CLASS].[AMOS_FK]. [CLASS] [ClassNurnber_Px], |JCLASS | [Rapor Das], ° 
*{CLASS] [Quota], (CLASS[.] Ctassindeng, | PENALTY).[Ciassinctiax_FK]. ° 
*{PENALTY}] (Penaty] FROM ((CLASS] INNER JOIN (PENALTY) ON” & _ 
*{CLASS].[CGassindeog ={PENALTY}.[Ctass tndex_FiKq).° 

Me RecordSource » siSOL 


* updalp stats of states tect box 
MolSals = “Working ..° 


’ Cal the Finess proceause 
Finess 


‘ update stats of stais tend box 
Me’Stats = “Files gonerated’* 
DoOred Beep 


* Records the stop #me for runrang Tvs subrculine 

ingEnd = Timer 

’ Determine tal sacs 

ingSec = IngEnd - IngStart 

’ Determine ntl hours 

ingHou «= IngSec \ 3600 

’ Determine ot) mins 

IngMin « (ingSoc - ingHour * 3600} \ 60 

’ Dewrrrne the secs raraining 

ngSec = (IngSec - (ingMin ° 60) - (ingHour ° 3600)) 11 

MsgBox “Ths operation inok ° & ingHour & ° haur(s), ° & ngMin & ° 
$), "8. 

"and * & ingSec & ° secs.*, WOKOnly, "Recrut Orsiibuton Moder 


Me DinPrepareAndExscuioSover Se ocus 


End Sub 


Prrvaio Sub $inGo_MouseDown( Button As Integer, Sruilt As integer, X As 
Y As Sing) 


Coons 
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Mes!Stntss « "Worlong ..° 
End Sub 


Private Sub binPrepareAndEs»ecumSoher_Cick() 
On Error GoTo Err_binPrepareAndiec utsSotver_Cick 


Dim stOocName As Sinng 
Dim stunkCnbna As Sting 


* Goeo the currant torm 

DoCmd Ciose 

* Open specilied torm 

s(DocName @ "imPrepareAnd=.=cuteSoher” 
DoCmd OpenForm stDecName, ,, stunkGrtena 


Ext_binPrepay eAndi ec utpSoler_ Clic ic 
Ext Sub 


Err_binPrepareAndi sec uteSolver_ Clic hc 
MsgBox Err. Oescnptan 
Resurne Ext_binPropareAndEsscutsSoter_Cick 


End Sub 


Prrvate Sub binReturnPrewous_Cick{) 
On Error GoTo Err_binReturnPrewous_Cick 


Crm stDocName As Sinng 
Oim stunkCniena As Sring 


‘ ose the current form 

DoCmd. Ciose 

*‘ Qpen specitied form 

100 sfDocName e “iirPreprocessngS DecutonSwitthboard” 
101 ODoCmd. OQpenForm siDocNeme, ,, sfunkCritena 
102 

103 Ext_binReturmnPrewucus_Click. 

104 Emt Sub 

105 

106 Err_btnRetanPrevous_Cicic 

107 MagGox Err Descnpton 

108 Rssure Ext_binRetsnPrevous_Cick 
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412 Prrvate Sub cmbCourseNumberFind_Alter Upda te(} 
113 

114 OmAAs Recordset 

115 Set Re Me. Recor dsetClione 

116 AFindFirst [SCourseNurrber_FXK] = ° & Chr(34) & 
MelicmbCourseNumiber Find] & Chr(34) 

$17 Me Booxnerk » RBooisrark 

118 «© Me!|crm>CourseNumnber Find] © Nui 

119 Me Penalty SetFocus 


123 Prrvate Sub Form_Current{) 

t24 

125 ‘Prevents the user from creatng the AMPL files unt! a MCT 
126 ‘ graduabon date is entered 

127 tt |sNuiMe MCTGradDate. Vatue) Then 

128 Me!binGo Enabled = Fake 

129 Mo!Status. Enabied « False 


130 

131 * Allows fhe user tp create the quot and penalty lies 
132 Ese 

133 Me'binGo Enabled © Trus 

134 

13S Endtt 

136‘ update the stals of the stats text box 
137 MelSmts e °° 

138 

133 End Sub 

140 

141 Privaip Sub MCTGradDate_Atter Upda tn } 
142 

143 Om verDate As Variant 

144 

145 varDate © Me MCTGradDate 

146 

147 tf leNad(varDale) @ Fase Then 

148 


149 Me! binGo Enabied « True 
150 Me! Status. Enabled « True 


182 * Format tus date for use in fhe DatsAdd funcbon 
183 verOate & Format(varDate, °#8 88/80/88") 
154 


185 * Add 120 days tp this da 
156 varDate = DateAdd(d, 120, var Date) 


158 ‘ Comert the new date back into the ongnal format 
189 varDate « Forral(varDate, “yyyymmdd) 


160 

161 * Place the new date un the “upper date bound” text box on the 
caling torm, 

162 Me. UDamBound « varDate 

163 

164 Ee 


165 MetbinGo.Enabled « False 
166 Me!Statis Enabled « Fase 
167. Endtl 

168 

169 End Sub 

170 


it irmFind 


Code 

Atribute VB_Name © °Form_frmFind” 
Alributs VB_Craatable « Trus 
Atribu VB_Predeciaredid = True 
Atribue VB_Exposed « False 

Opton Cornpare Database 

Opton Espicit 


Prrvate Sub binFind_Cick/) 
On Error GoTo Err_binFind_Cick 


oon a mea A — 


11. ‘Screen. PrevousConrol SefFocus 

12. Forms!frmSchoolToPropertyMant SetFocus 

13. DoCmd.FindRecerd Me.cmbCourseNumber, . True, . True, acAl 
14 = ‘DoCmd.DoManultem acFormBar, acEdi Manu, 10, , acMenuVer 70 


16 Ext_binFind_Cicic 
17 Ext Sub 


19 Esr_banFimd_Cick: 
20 = MagBox Err. Descnpton 
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651-21. Resume ExtbinFind_Chck 
652 22 End Subd 


653 2 

654 24 

655 

656 Fon: trmF undamentalProperty 

657 Code 

658 1. Altniute VB_Name « °Form_trnF undamentalProperty” 
659 2 Attribute VB_Creatabis = True 

660 3. «Atrbute VB_Predeclaredid = True 

1 4 Aftibute VB_Exposed = False 

662 5 Opton Compare Datbase 

663 6 Opton Bxpicil 

64 7 

66S 8 Private Sub Cornmand15_ Clic ki) 

666 9 

667 10 MegBox “This rs a button”, vbInformabon, “Testng” 
668 11 


669 12 End Sub 
671 14 Private Sub bnCinse_Clck{) 
45 On Error GoTo Er-_birGoee_Cick 
18  DoCmd Gose 
19 DoCmd.QpenFoerm “inmMantenanceSwitt hboard” 
21 ExtpinClose_Cick 
Ext Sub 


MagBox Err, Oeseripton 


22 

23 

24 En_binClose, Cick 

25 

26 = Resume Ext_binCiose_Cick 


End Sub 


688 Prvate Sub cmbF PropertyNameFind_Aher Update) 
689 
690 Cwm A As Recordset 
691 Set Ai = Me. Recordse!Cione 
692 RA FindFirst “[FPropertyName_PK] © ° & Chv(34) & 
693 '|crnibF Proper tyNemeF ind) & Chy(34) 
694 Me Bookrnark =» Fl Boolonark 
695 Me!|cmbF Property NameF ind] = Nui 
Me. FPropertyName_PK Sef ocus 
697 
698 End Sub 


Prete Sub Command! 1_Cic ki) 
' Forces user enter data tor property name and descnpbon 
Hi JsNu&Me FProperty Name_PK. Value) Or [sNuiiMe Description. Value) 
Ms! Marine eid. Enabled « False 
Mo!Operator Enabled = False 
Me!Labelt0 Viaibie « Fao 
Me!subirmF undamentalProperty Visibie = False 
Me!subtrm™ undamentaProperty List Visible = Fase 
MeicmbPotentalV alin Visbie = False 
MagBox “You must prowde a ‘Property Name’ and ‘Descripton’ 
@ balding the fundamenta) equaton.° 


R 
SESESRREGHSSCBYRERLBRESBBY 


* Allows the user to onter values for the fundamental equaton 
Ee 
Me!Mar neFieid. Enabled = True 
Me!Operator Enabled « True 
Ms!Labell0 Visbie = True 
{t ForrstinmF undarmentalProperty Operator Value « “in” Then 
Me!subtrmF undamentalr operty. Vesibie @ Fae 
Melsubtrmé undarnentalPr oper tyList Visible = True 


eS 
~ 
goce tee 


Ese 
MelcmbPotenthalValus. Visible » True 
Me'subtrm® undamentalPr oper ty. Veuble © True 
Melsubirm® undamentalPropertyList Visible « Fake 
End it 
End If 


End Sub 
Prrvate Sub Deacrpton_Alter Upcietn() 
Den s7SQ As Sting 


‘ Forces user © enter data for property name and descnpeon 
It IsNud Me FPropertyName_PK Vatue)} Or tsNuii(Me.Descr pton. Value) 
Me'MarineField Enabled © False 
Ms' Operator Enabled = Fake 
Me!Labell0.Vimbie = False 
MelsubirmFundamentaiProperty Visibie = Fake 
Me! subir undamertalProperty List Visible = False 


‘ Allows the user © enter values for the fundamental equaton 


743 Eise 

744 Ma!MarineFiekd Enabled « True 

745 Me! Operator. Enabled « True 

746 MeiLabel10.Vissbie = Trus 

747 it FormsiirmF undamentalProperty Operater Value e “in” Then 
748 stSQi » “SELECT DISTINCT ° & Me!ManneFieid & ° FROM 


SBBGRREBREBAAYRAPANUIBEIRRIABK 


750) Ferra! heFundarnenta Property! subir undammentalProperty List V alue_FK. FowSo 
751 uree = sbSOL 


72 «691 Me!subirmFundarmentuProper ty. Vesibie = False 

753092 Me!subtrmFundamnentaPr oper ty List Viable & True 

754 93 

755 94 Eke 

7 95 strSQL » “SELECT DISTINCT ° & Me'MarineFieid & ” FROM 
7S? 


96 
758 9 Forms! irerFundamentalProperty! subinmf undamentaiProperty!cmbValue_FK. RowSou 
759 reoe s¥SCL 
76 8697 MetsubirmFundamentalPy oper ty Vesibie © True 
76t 89698 MolsubfrmFundamentalP operty List Visible = Fase 
72 «8699 End tt 
763 100 End It 


764 101 

765 102 End Sub 

766 103 

76? 404 Pnvate Sub Form _GetoreUpdate|Cance! As Integer) 
768 = 105 

769 106 [FundPropTimeStarrp] = Now 

770 107 

774 108 End Sub 

772 109 


77 110 Prvete Sub Form_Currant{) 

774 14 

775 9112 ~Dams®SQl As Sting 

776 113 

777 29= 114) ‘s¥SQL » “SELECT ManmefFieid. Operator FROM FUNDAMENTAL PROPERTY 
778 WHERE FPropertyNeme_PK = ° & FundPropNeme 

77s 115 

780 116 


ee28e2 


¥gees 


SREBRESIeeKAees 


807 


ESBSRASRRSERSSERSERSS 


REERE 


#3 


BESSRIRRSSS CARRIE RSSEE 


aaednad 


SSSR FEREESIS 


SSSSKssgssSssgssegs 


= 
ro) 


117 ‘Forces user ib enter data for proparty name and Gescnipton 
118 {1 1sNts(Mo FPropertyName_PK Value) Or IsNuiMs. Description Value} 
119 Ma'MarineF lek! Enabied = Fae 

120 Me'Oper ator Enabled = Faise 

121 Me!Labell0 Visibie = Faze 

122 MelsubtrmFundarneantalProperty Visibis = Fae 

123 MolsubtrmF undamentalPr opertyUst Visible = Fabe 

124 

125 ° ASows fhe user tp enter values for the fundamental equation 
126 Eke 

127 Me!MarineF weld Enabled = Trus 

128 Me!Oper ator Enabied = True 

129 Ma!lLabaliO. Visible = True 


130 ff FormstiemF undamental>r operty Operator Value = “in” Thon 
131 ‘ Updalp the Potential Value ist 

122 Moe'subtrmFundamentaProperty Visible = F aise 

133 Mol subitrmF undameantaProperty List Visibie = True 

134 sySQL = “SELECT DISTINCT * & Me!MasineFiald & * FROM 
135 


Forms! InmFundamentalProper ty tsubtrm undamaentalPropertyListlV alue_F K RowSo 
urce = svSQL 


136 Ese 

137 * Upxiate the Potential Value ist 

138 strSQL. = “SELECT DISTINCT * & Me!MarineFieid & * FROM 
139 


Forms !IrmF uncameantalProperty sutrmF undamentalProperty!c mb Value_F K.RowSou 
tce = sbSQu 


140 Me! subir mF undamantaProperty Visible =< True 

141 Me! sublr mF undamentaPraperty List Visible = False 
142 End it 

143 

144 * Set locus to the property name This prevents problem 


associaisd wih entering he “Operalpr” object. 
145 FPropertyName_PIC Setf ocus 
146 End ll 


152 Private Sub FPropertyNama_PK_AlterUpdate() 
153 
154 Dim strSQL As String 


156 * Forces user to enter data for property name and descripton 

157 — If IsNuB(Me Narne_PK Value) Or ts\Nul Me Description. Value) 
158 Mo!MarinoF ieid Enabled = Fake 

159 Ms!Oper ator. Enabled = Faise 

160 Ma!Label10. Visible = Fae 

161 Mo!subirmF undamentaiProperty, Visible = Fake 

162 MolsublrmFundamantalPr opertyUst Visible = Fabe 


163 
164 ° ASows tho usar to enter values for the fundamental equation 
165 bse 


166 Me'MarineField Enabted = True 

167 Moe!Oper ator. Enabled = True 

168 Mo!Labet10 Visibie = True 

169 fl FarmetirnF undamentaiProperty Operator Vaiue = “in® Then 

170 s¥SOL = “SELECT DISTINCT ° & MoiMarineFieid & * FROM 

171 

Forms !|rmFundamentalPropar ty tsudtrmF undamentalPr oper ty List! Value_F K. RowSo 
urce = s¥SOl 

172 Me! subir undarnantaPProperty Visible = False 

173 Mol subirmFundamentaPropertyList Visible = True 

174 

175 Ese 

176 stSQL = “SELECT DISTINCT * & Moe!MarineFieid & * FROM 

177 

Forms! frmF undamantalProperty 'subtrmF uncamantalPr operty!cmb Value _FIK. RowSou 
Tce = sySQL 


178 Mel qubht mFundameantaiProperty Visible = True 
179 Me! subi mFundamentaProperty List Visible = Fase 
180 End tt 

1681 Endit 

182 

183 End Sub 

184 

185 Private Sub MarineFieid_Afier\Jpdains } 

186 

187 OmmstSOQl As Sring 

1868 


189 ‘' Upda® the Potnial Value ist 

199 s¥SQL = “SELECT DISTINCT ° & Me'MarineFieid & ° FROM MARINE,” 

191 

Forms! frm undamentalProperty ‘subi nm undamantalPr oper ty List! Value_FK RowSo 
urce = svSOL 

192 

Forms frm undamentalPr oper ty!subt mF undameantalProperty cmbV alue_FK. RowSou 
rcs = sySQh 


196 Privato Sub Oper ater After Updiate() 


198 If FormsitremFundamentalProparty Operatcy Value = “In” Then 
199 Molsubiem undamantalProperty Visibie = Fake 

200 Mo!suttrmF undamantalPr oper ty List Visible = Trua 

201 Eke 

2m Me! subir undamentalProperty Visibie = True 

203 Mo! subir undarentalPr oper ty List Visible = False 

204 «Endl 


206 End Sub 

207 Private Sub binDetiete_Cick()} 

208 On Error GoTo Ext _dinDelets_Cick 

203 

210 

211 OoCrnd DoMenultem acFormBar, acEditMeny, 8, , acManuVer70 
212 OoCmd DoMMenultern acFormBar, acEditMoru, 6, , acMeruVar70 
213 

214 Ext_binDebbip_Cick 

215 Ex Sub 

2té 

217 Err_briDetete_Cécic 

218 MsgBox Err. Deseripion 

219 Rosute Ext_binDelete_Cick 


8 


Din stOiatSe As Sting 

Dim PrevCt As Cantal 

Const ERR_OBJNOTEXIST = 2467 
Const ERR_OBJNOTSET = 81 


Sei PrevCt = Screen. PrevousConsol 


If TypoOt PrevCt Is TextBax Then 
sfhalSe = lit(Var Type(PrevC®) > V_NULL, PrevCd, **) 


BRISRENSR 


10 


911 
912 
913 
B14 
915 
916 
917 
918 
919 


ESSSRRSBRSSRSSRRSERSS 


Zs sCEsell TypeCt PrevCt Is ListBox Then 

235 stialSv = iff(VarTypexPrevCt) > V_NULL Prevce. “) 
2% = Ebsell TypeOt PrevCt Is ComboGax Then 

237) s@halSe = IN(VarTypetPrevCv) > V_NULL PrevCt, ~) 
238 46Ee 

zo) sWDialSy =~ 

240 CEnd it 

241 

242 Appicaton Run “utity web_Autothal, stDiaSr 

243 

244 Extt_Corenand14_Cick. 

245 Exit Sub 

246 

247 En_Command14_Cicic 

248 = If (Er = ERR_OBJNOTEXIST) © (En = ERR_OBJNOTSET) Then 
249 3 8Resurne Neat 

20) «(End It 

251) MsgBox Err Description 

252 «Resume Ext_Cormmand14_Cick 

33 

254 End Sub 

255 

256 Pmate Sub Oper ator_Enter() 

a7 

258s if Me.Operator Value = *in® Then 

259 MsgBox “The 'in’ operator 1s not changeabie It ts removed by 
deleting the property.*, volnformaton, “Linauthorized Action* 
260 subir undamentalPr oparty List SetFocus 


261 ~Endit 
262 

941 263End Sub 

942 

943 Form: trmGeneraleRepart 
Cade 


SBSSRRERRESARGRRLER ERE SSE EE 
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A®lbute VB_Name = “Form _frmGenera Report 
Atributs VB_Creatabie = True 

Atribute VB_Predectaredid = True 

Altnbute VB_Exposed = Fake 

Opton Compare Database 

Option Expécit 


Private Sub binAssignmentReport_Cick() 
10 DoCmd.OpenRepori ‘rptassignedMarines", ac ViewPreiew 
12 End Sub 


Cena na wD — 


14 Private Sub bnEntryLaveiSchool_Cick{} 
16  OoCmd.OpenReport *rptEntyLevelSchool, ac ViewPrevew 


19 End Sub 

Privals Sub binExt_Cick{) 

Ch Error GoTo Err_binExt_Cick 
DoCrnd. Case 


Ext binExt Cickc 
Ex! Sub 


En_bnbst_Cick 


MsgBax Err Descripton 
Resume Ext_binEx t Click 


End Sub 


Private Sub dinUnasstgnedMarineReport_Cack() 
DoCmd OpenReport * ptUnassgnedMarines”. ac ViewPravew 
End Sub 


Private Sub Commands_Cick{) 
On Error GoTo Enr_Cammand8_Cick 


Dim stDocName As String 
Dim stinkCriteria As Strong 


* Close the current form 

DoCrnd. Close 

"Open specified form 

stDoc Name = “inmRDM_Main_Seticndboar if 
DoCmd.OpenForm siDocName, ,. stUnkCriteria 


Ext Command8_Cick., 
S6 Exit Sub 
37 


$8 Err_Command8_Cick. 

59 MsgGox Err. Deseripson 

60 = Assume Ext_Conmmands_Cick 
61 

62 End Sub 


Foon: fern mpor VExportSwiic hboard 
Code 


Attribute VB_Name = “Form_frmimporvExpar Swit hboard” 
Atmoute VB_Creatabie = True 

Attribute VB_Predaciaredid = True 

Attribute VB_Exposed = Fate 

Option Compare Database 

Option Expbcit 


Prime Sub DREN Cick() 
On Error GoTo Err_brnEntCick 


OSArOWa VD = 


12 DoOmd. Case 


14 Ext_bnEat Click 
1S Ext Sub 


17? Ert_binExit_Cick 
18 MsgBox Err.Oeecripton 
19 Foesume Ext_bnEmtCack 


End Sub 
Private Sub binExportRD3_Cack() 


Apptcation. SeiOpdion “Conliem Acton Queries’, Fao 

DoCrnd. SetW amings (F alse) 

* Boots assignments t ADI td Me 

ExpartRD3 

‘Archives data from the Marine and assignment tabkss, having report 
hes ions Than he current dap 


ESBENVERESK 


1127 
28 
1129 
1130 
1131 
1132 
Ns 
1134 
1135 
1136 
1837 
1138 
11239 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
148) 
1182 
1153 
1154 
1158 
1356 
1157 
1158 
1159 
1366 
1161 
1162 
1163 
1164 
1168 
1166 
1167 
1168 
1169 
1170 


SBBEGRREBRERAAASAHVANASBSARRILASRISSEARELEKLESESERECKASBBSRREBBS 


AsctiveData 
Apptcaton. SetOption “Confirrn Acton Queries*, True 
DoGmd SetW arrengs (True) 


End Sub 


Prevails Sub Command? Cick(} 


Dim stDocName As Sring 
Oun stUnkCritoria As String 


Application. SerOpton “Confirm Acton Queries’, False 
OotCand.SetW arrengs (F aise) 

‘Imports the RD1 file 

lmmpor RD 1 

Applicaton. SetOpiion “Contirrn Acton Queries, True 
DoCmd.Seiw arnings (True) 


' Gase the currant forrn 

DoGmd.Ciose 

‘ Open specitied iorm 

stOoc Name = “irmChangeGradDais” 
DoGmd.OpenForrn stDocName, ,, stLinkCriteria 


End Sub 
Private Sub Cammand4_Cick{) 


* Imports BNA. bd tia 

Application SetOpion °Confirrn Acton Queries”, False 
OoCmd. SetW arnings (False) 

DoCrnd RunSOt *DELETE ° FROM BNA_EXTRACT,* 
ImportB NA 

Appicaton. SetOption *Confirrn Acton Queries”, True 
DoCmd.SetW arnings (True) 


End Sub 
Prevale Sub Command8_Cick(} 
On Estar GoTo Err_Comrmands_ Cick 


Dwn sfDocName As Sing 
Dim stLinkCritana As Sting 


* Clase the current lorm 

DoCmd Close 

‘ Qpen specilied iorm 

stDoc Name = “trmRDM_Main_Swichboard” 
DoCmd.OpenForrn stDecName. , . stLinkCritena 


Exit, Commands _Click 


Ext Sub 


Es1_Commands_Cick. 


MsgBox Err. Descnpton 
Resume Ext Conmand8_Cick 


End Sub 


Forn: trmLogcalProperty 
Code 


CSenanaeuh = 


27 


Atvibuis VB_Nams = *Form_trmLogcalProperty* 
Afttibuts VB_Creatabie = True 

Alvibub VB_Predaectaredid = True 

Alribuw VB_Exposed = False 

Option Compare Database 

Option Explicit 


Private Sub binClose_Cick{) 
On Error GoTo Err_binCinse_Cick 


DoCmd Close 
OoCmd OpenForm “trmMalntananceSwiitchboar i 


Exit_binGiose_Cick 


Ext Sub 


Err_btnClose_Cick 


Msg8ox Err.Descripaan 
Resume Exit_binClose_Cick 


nd Sub 
Prevails Sub embFundProp_Cick() 


' Adds the selected fundamental property to the logical equation 
Me LogcalEqualion. Value = Me LogicalEquation. Vaue & 


Mo.ctnbF undProp Value & *” 


2 
2 End Sub 
30 Privals Sub crbLogOper _Cack{) 


wv 


2 ' Adds the selected togical opar ator to the iogcal equation 
33 Me LogicalEqualion Value = Me LogicalEquation. Value & 
Me embLogOper Vatue & °° 


LABRIGSEYFRLEKLESESHERECHFASSBIRGE 


Privale Sub embLProperty Name Find_After Updated) 


Dyn A As Recordset 
Set A= Me. RecardsetCione 
RF indF ir st “[LPropertyName_ Pid = ° & Chr(34) & 


(cmbLProperty NamneFind] & Chr(34) 


Me Boolonark = Fi Booknark 
Me!|cmblPropertyNameF ind] = hud 
Me LPropertyName_PK SetFocus 


End Sub 


Private Sub Command 10_Cickd} 


* Removes the lasi entry in the logical equation 


Dirn stinName, stUndo As Sting =‘ input name 

Dim intSpacePos As integer ‘positon of the space 
Dun i As intager =‘ bop index 

Dim booResuft As Boolean 

Dim ingCamersion = As. Long 

Dim var Cor As Vanant 


‘ gel the logrcal expression 
stinName = Me.LogcalEquation. Vale 


*Check for °Nul value 
It stinName <> "AUF Then 


fai 


W171 
1372 
1173 
1174 
175 
1176 
1177 
1178 
1179 
1180 
11B1 


1163 
1184 


1276 


1287 


$291 
1292 
1233 
1294 
1295 
1296 
1297 
1296 
1299 


65 

6 ‘ dectare fhe temporary sting as an array 

67 ReDim s¥ Terre 0) As Sting 

68 

69 * Find the posibon of the first space 

70 IntSpacePos = IinSt(stinName, ° ”) 

7 

72 * Loop until no more spaces are lound InS¥ returns 0 If ihe 
space is nol found 

73 Do Unlli nSpacePes = 0 

74 ‘yedimenaon the array, adding another olamant 

7s * UBound pts us how many elements there aloady are in he 
76 ReOim Preserve st Tere UBound( si Tarr) + 1) 

77 

78 ‘ set he new alemant to Ihe characters irom the beginning ot 
7 * sting up lo fhe lirsi space Lol retsns a number ol 
characters 

80 ‘trom the beginning ot a string 

81 st Tamp( UBound st Tarrg)) = Tren$(Lett${stinName, intSpaceP os 
& 

83 “now weve coped these characters into the name, hey can 
B4 ‘removed trom the original sting ~Fight$ returns a number 
85 ‘ chatacters trom the end of the sting itis the nghtnost 
86 ‘ characters, therelare we subirac| the position of he space 
87 * the langth of the string. This gives us the number of 
characters remaining 


68 stinName = LTrim$(AghS{stinName, Len(strinNams) - 
89 

9 ‘find the next space 

91 intSpacePos = InSt(stinNams, °°) ‘Or inGpac ePos = 
InSo(stinName, °(*) ‘Or intSpacePos = InSt{strinNams, *}°} 

92 

=<) Loop 

94 

95 * Remove the last elemani of the array, unless there 1s only one 
clement eft 

96 11 UBound(sttTemp) > 1 Than 

97 ReDim Preserve st Temp( UBound si Temp) - 1) 

98 

99 ‘Loop Brough the elements of the array and piace them back 
ints he logcal equation exprassion 

100 For i = 1 To (UBound(st Ternp)) 

101 s¥ Undo = swUndo & strTerp(|) & °° 

102 Me LogcalEquation Value = stUndo 

103 Neng | 

104 Else 

105 * Sel the logical equation equal to “Nui” 

106 Me LogicalEquation. Value = °{ ° 

107 End It 

108 


109 * Set logical equalion expression equal to new vakue 

110) «Endl 

114 

112 End Sub 

113 

114 Privale Sub Command! 1_Caciq} 

V5 

116° Forces user to enter data lor property name and description 
117 1f lsNud&{Me LPropertyName_P Value) Or IsNuMe Descripton Vakie) 
118 Meal Command’. Enabied = False 

119 Mei Command9 Enabled = False 

120 Mei Command10.Enabled = False 

121 MelcmbFundProp.Enabied = False 

122 MeicmbLogOper Enabled = Faise 

123 Mel Logica quation. Enabled = False 

124 MsgBox “You mus! provide a ‘Property Nams' and ‘Description’ 
before building the logical equation. * 

125 

126 ' Enters a°( ° be the first entry in the logcal equation if Il is 
127 Else!] |sNus(Me!LogcalEquation. Value) Then 

128 Mel Commands Enabied = True 

129 Mai Command? Enabled = True 

130 Mel Comenand0. Enabled = True 

131 MolctnbF undProp Enabled = True 

132 MelcmbLogOper Enabied = True 

133 MelLogcalEquaton. Enabled = True 

134 Mel Logcale quation. Value = “( ° 


136° Allows Ihe user to ents values Inip he logcal equation 


150‘ Adds the Beit bracko! to the logical equahon 

151 Mo.LogicalEquabon. Value = Me. Logcalr quation Value & °*{° 
182 

159 End Sub 

1S4 Privale Sub Command _Cick() 

155 

186‘ Adds ihe right bracket > the logical equaton 

187 Me.LogicalEquation Value = Me.LogcaiEquaton Value & ")° 
158 

189 End Sub 

160 Prrvate Sub binDeleip_Cick{) 

161 On Error GoTo Err_binDetets_Cick 

162 

163 

164 BoCmd DoMenultem acFormBar, acEditMenu, 8, , acMenuVer70 
165 OoCmet DoMenultiem acFormBar, acEditMeny. 6. , acMenuVer70 
16 

167 Ext_bwiDetete_Cicic 

168 Exit Sub 

169 

170 Err_binDelets_Click: 

171 MsgBox Err. Description 

172 Resume Extt_binDelete_Click 

173 

174 End Sub 

175 Privale Sub Descripfon_After Update } 

176 

177 ‘ Forces user to enter data lor property name and descnpion 
178 tf IsNué(Me.LPropertyNamp_PK. Value) Or IsNuiMe Description. Vaiue) 
179 Mel Command? Enablad = Fase 

180 MaiCommand? Enabied = False 

181 Mo! Correnand10.Enablad = Faise 

1&2 MeicmbF undProp.Enabied = F atse 

183 MelcmbLogOper Enabled = Fase 

164 MelLogcalE quation Enabled = False 


186 * Enters 2 °( * be fhe first entry in Ihe logcal equation if il is 
187 —_ Elselt 1s‘Nuli Me'LogycalE quation. Valve) Than 


188 Mel Commeands.Enabied = True 

189 Me! Command. Enabled = True 

190 Ma! Command! 0. Enabled = True 

191 Me'cmbFundProp. Enabled = True 

192 MaelembLogOper. Enabled = True 

183 Me'LogcalEquaton Enabled = True 

194 Me! Log calequaton, Value = “( ° 

195 

196 ° Allows the user to enter values into the logical equation 

197 Ebe 

198 Meo'Commands.Enabied = True 

199 Me! Commands. Enabled = True 

200 Moi Comrmand10 Enabled = True 

201 MelembFundPrap Enabled = True 

202 MelembLogOper. Enabied = True 

203 MelLogicalEquaton. Enabled = True 

204 «End If 

205 

206 End Sub 

207 

206 Prvate Sub Form_BeforeUpdats(Cance! As Intege:} 

208 

210 = [LogPropTimeStump] = Now 

211 

212 End Sub 

213 

214 Prvete Sub Forn_Current() 

215 

218 ‘Forces user w enter data for property name and descnpton 

217 If IsNuB(Mo.LPropertyName_PK Value) Or IsNuk Me Descnpton. Vatue) 

218 Me! Command9. Enabled = Faise 

219 Mel Commands. Enabled = False 

220 Mol Command10. Enabled = Faise 

221 Me'embFundProp. Enabled = Faise 

222 Me'cmbLogOper Enabled = Faise 

23 Me! LogicalEquation Enabled = False 

224 

225 ‘Enters a°(° be the firstenty m the logical equaton ff itrs 

226 = Elsel? IsNuMe! LogcajEquaton Vaive) Then 

227 Me!LogicalEquaton Value = *{ 

228 

229 = * Alowas the user to enter values into the logcal equaton 

230 «Ele 

231 Me! Commands.Enabled = True 

232 Me! Command9. Enabled = True 

23 Me! Command10, Enabied = True 

234 MelcmbFundProp. Enabled = True 

235 Me!cmbLogOper. Enabled = True 

2% Me! LogcalEquason Enabled = True 

237 End it 

238 

239 End Sub 

240Pnvalp Sub LogcalEquaton_Eniter{) 

241 

242 ° Prevent the user from modifing the logcal equaton drecty 

243 MsgGox “The logcal equaton 1s only modifiable by the above logcal 

equaton bunider” 

244 DoCmd.GoToConto! *LPropertyName_PK 

24S 

246 End Sub 

247 

246 Private Sub LPropertyName_P_After Updates) 

249 

250 «* - Forces user t enter dats for property name and descnpton 

251 If IsNull Me. LPropertyName_PK Vatue) Or IsNul( Mo, Descnpton. Value} 
Mel Commands Enabled = False 
Me! Command9.Enabied = False 
Mel Command19. Enabled = Feise 
MelembFundProp. Enabled = False 
MelcmbLogOper Enabled = False 
Mel LogcalEquaton Enabled = False 


THLISSARASARAABVURRRRR 


274 
278 
278 
277 
278 
279 


* Enters a *( ° bo the first entry m the logcal equaton ff it 1s 
Elsett IsNuliMe!LogcalEquaton Value) Then 

Me!Commands.Enabied = True 

Me! Commands. Enabled = True 

Me! Command 10. Enabled = True 

MeicmbFundProp Enabled = True 

MelembLogOper. Enabled = True 

Me! LogicalEquaton. Enabied = True 

Me! Log caliquaton, Valve = “{ 


* Adowa the user to enter values into the logcal equaton 
Elso 

Me! Commands.Enabled = True 

Me' Command? Enabied = True 

Me! Commend10.Enabied = True 

Me'cmbFundProp Enabled = Trus 

Me'cmbLogOper Enabled = True 

Me! LogicalEquaton Enabied = True 
End It 


End Sub 


Form: trmMamntenanceSwitr board 
Code 


oaneuva WN 


REEKSSISRIRIILR 


Atnbute VB_Name = “Form_frmrantenanceSwitchboard” 
Atnbute VB_Creatabie = True 

Attinbute VB_Predeciaredid = True 

Atnbute VB_Exposed «= Fase 

Opton Compare Database 

Opten Explicit 


Prrvete Sub DME Wt_Cick{) 
On Error GoTo Ert_binEnt_Céck 


DeCmr Close 


Ent_binExat_Cick 
Ext Sub 


Ert_btinExt_Cick 
MsgBox Ert.Ceacnpton 
Reaure Ext_bonEwt_Cick 


End Sub 


Prvale Sub Caommand0_Ciick{} 
On Error GoTo Er_Cormmando_Cick 


Dim stDocName As Sting 
Drm stunkCriene As Sting 


‘ Crosse the current form 

DeCrmrt Grose 

‘ Open specified form 

atDocName = “frmSchoolToPEF _Mart® 

OoCmd OpenForm stOocName, ,, stunkCnenae 


2 


Ext_Commando_Cick 
Ext Sub 


Ert_Commando_Cicic 
MegBox Err Descnpton 
Resume Ext_Commandd_Cick 


End Sub 


Private Sub Command12_Cick{)) 
On Error GoTo Err_Cornmand12_Cick 


Dim stDocName As Stinng 
Oim stiunkCntena As String 


* Core the current form 

DoCmrdt. Gose 

* Open specified form 

stDocName = “irmSchoots* 

DoCmeLOpenForm stDocName, , , stunkCniena 


Eat Command12_Cick: 
Esxt Sub 


Ert_Command12_Cick: 
MsgBox Err. Descnpton 
Resume Ext_Conmenand12_Cick 


End Sub 


Private Sub Command14_Cick) 
On Error GoTo Ert_Comvynand14_Cick 


Oim stDocName As Sting 
Dien stunkCntene As Sting 


* Close the current form 

DoCmd. Close 

‘Open specified form 

stDocName = “tmPEF 

DoCmd. QpenForn stocName,, , stunkCnisna 


Ext Command14_Chek 
Ext Sub 


Err_Command14_Cicic 
MegBox Err. Descnpton 
Resume Ext_Commandi4_Cick 


End Sub 


Private Sub Cormmand2_Cick{) 
On Error GoTo Err_Command2_Cick 


Oim siDoc Name As String 
On stunkCnisna As String 


* Grose the current form 

DoCmxd. Gose 

* pen specified form 

atocNams = “frmFundamentalProperty” 
DoCmd.OpenForm stDocName,, , stinkCnisna 


REKKLESLBEBESKAFSKHRSSASASAPANISSEIKFALSRSSSEYKRLGKRLESESHESEGHLESEISES 


101 

102 Ert_Command2_Cick 

103 MsgBox Err. Descnpton 

104 Fesurne Ext_Command2_Cick 
10S 

106 End Sub 

107 

108 Private Sub Command Cick/) 
109. On Error GoTo Err_Command4_Cack 
110 

111 Oim stocName As Sting 

112 Oi stLinkCniena As Sting 

113 

114 * Close the current form 

115 BoCmd Cose 

116 Open specified form 

117 = stDocName = “frmiLogcalProperty” 
118 DoCmd.QpenForn stOecName, , , sfunkCniane 
V1g 

120 Exat_Commanda_Cick 

121 Eat Sub 

122 

323 Err_Commanca_Cicic 

124 MsgBox Err.Descnpton 

125 Pesume Exnt_Commands_Cick 
126 

127 End Sub 

128 

129 Private Sub Cormmand$_Céck() 

130 On Error GoTo Err_Command6_Cick 
134 

132 Oim stDocName As String 

133 Dim sttunkCntena As Sting 


134 
135 ‘Close the current form 
138 BoCmd Goss 


137 * Open specified form 
138 stDocNaeme = “irmSchoolToProperty Maint 
139 BoCmd OpenForm stOocName, , , stuinkCniana 


141 Ext_Commands_Cicic 

142 Ext Sub 

143 

144 Ert_Commands_Cick 

145 MsgBox Err Descnpton 

146 Resume Ent_Comrrmnd6_Cack 
147 

146 End Sub 

149 

150 Pnvam Sub Commands _Cick{) 
151 On Error GoTo Ert_Command®_Cick 


153 Dim sDocName As Sinng 
154 Oim sturkCntene As Sting 


158 ° Qose the current form 

157 OoCrmd Gose 

158 ‘Open specified form 

159 stDocName » “frmADM_Man_Swthboant 

160 DoCmd.OpenForm st0ecName , , sfunkCnine 
181 

162 Exat_Commands _Cick 

163 Eat Sub 

164 


1561 


165 Err_Commands_Cick 

166 MsgBox Err. Description 

167 = Resume Ext_Commanda_Cack 
168 

169 End Sub 


Form trmPEF 


E 


ADribute VB_Nasne = “Form_frmPEF” 
Alribute VB_Crealable = Trus 
Atripute VB_Predeciaredid = Trus 
Attibute VB_Exposed = False 

Opton Compare Database 

Option Explicit 


Private Sub cmbPeliFind_Aftr Update, } 


10 Dim R As Recordset 

11. SetR = Me RecordsetCione 

12 —- RFindFirst °[PEF_Px} = ° & Che(34) & MeifembPelFind] & Chr(34) 
13. Me Boaionark = R Boolonark 

14 Mel[cmbPefFind] = Nub 

15 Me PEF_PK SetFocus 


OOn ane an — 


17 End Sub 
19 Private Sub Form _Belor eUpdate( Cancal As Integer) 
21 [PEF_TimeStamp] = Now 
End Sub 
Private Sub Form_Current{() 
Dim svSOL As String 
* Update the PEF List 
stSOL = “SELECT DISTINCTROW /MARINE].[PEF]FROM MARINE LEFT JOIN PEF 


ON [MARINE).[PEF] = [PEF].[PEF_PKJ]WHERE {(PEF].[PEF_PK] is NuNORDER BY 
31 Me.PEF_PK RowSource = sSOL 


SRBVEKIOK 


End Sub 
Private Sub PEF_P_After Updates} 


BREBK 


37 Dim strSQL As String 
3% 

39 =‘ Updats the PEF List 

40 s¥SOQL = “SELECT DISTINC THROW [MARINE].[PEF]FROM MARINE LEFT JOIN PEF 
ON [MARINE]. [PEF] = [PEF].[PEF_PKIWHERE ((PEF] [PEF_PK} is NuS}ORDER BY 
Me.PEF_PK RowSource = srSCt. 


End Sub 
Private Sub binDelete_Cick)) 
On Error GoTo Err_binDelsie_Cick 


DoCmd DoMenultem acFormBar, acEditVvienu, 8, , acMenuVer70 
DoCmd DoMenultem acFormBar, acEditvienu, 6, . acMenuVer70 


Ext_binDelete_Cick 
Ext Sub 


Err_binDelete_Cickc 
MsgBox Err. Description 
Resume Exit binDelete_Cick 


End Sub 
Private Sub bnClose_Cack() 
On Error GoTo En_binCiose_Cick 


OoCimd. Cosa 
DoCmd OpenForm “frmMVaintenanceSwichboar é* 


Ex t_binCtose_Ciick 
Exit Sub 


Er_binCiose_Cacikc 
MsgBox Err. Descripton 
Resume Ext_binCiose, Cick 


INVABEAKRALBSRISSSAFHLBKRLSEERHRRLEEKSE 


End Sub 
Form: trmPrepareAnd=>»ecuteSoner 
Code 


Atribute VB_Name = “Form_irmPrepareAnd=>scuteSoiver” 
Atrlpute VB_Creatable = Trus 

Alvibute VB_Predeclaredid = True 

Atribule VB_Exposed = False 

Option Compare Database 

Option Explicit 


Pnvate Sub bRAMPL_Cick() 
On Error GoTo Err_bInAMPL_Cick 


11 AmpiData 

13. Dim stAppName As String 

18 — ‘stAppName = °C:\ToBeAdm\Ampiwin\ampian.eos” 

16 stAppNarne = °C:\ToBeRdmVAmpniniamp. bar” 

17 Cal ShelistappName, 0) 

19 ‘MsgBax “Enter Into the command ine: ‘include rdm. run” 


COONAN SON — 


21 ExtbiNAMPL, Click 
Exit Sub 


Er _bInAMPL_Cick 
MsgBox Err. Descripton 
Resume Ext_bnAMPL. Cick 
End Sub 


Private Sub bnAmpPus_Cick() 
On Error GoTo En_bmnAmpPus_Cick 


AmpiData 
Dim stAppName As Sting 


stAppName = °C:\AMPLPLUSVAMPLPLUS EXE rdmam* 
Call Shel stappName, 1) 


Ext binAmpiPius_Cick 
Ext Sub 


Er _binAmpPus_Cick 
MsgBox Er. Description 


EEBZEBVSKRKREBKSSBRVRREBL 


13 


1747 


1749 
1750 
1751 
1782 
1753 
1754 
1758 
1756 


1758 
1759 
1760 
1761 
1762 


1764 
1768 
1766 
1767 


NISSEGSRLSRISGSUVERLEKSESESFS 


73 
74 
75 
76 
7 
78 
73 


BELRRLESLLSEELRALSRLE 


Resume Ext_binAmpiPius_Cick 
End Sub 


Privalp Sub binReturnPrewious_Cick{) 
On Error GoTo Err_binReturnPrevious_Cick 


Dim stDocName As Sting 
Dim stUnkCriterla As Sting 


‘ Ctose the current form 

DoCmd Ciose 

"Qpen specitied form 

stDocName = “irmPreprocassing& acutionSwitchboard™ 
DoCmd.OpanForm siDocName, , , stUinkCriteria 


Ext_binRetmnPrevous_Cick 
Ext Sub 


Err_binReturnPrevious_Cick 
MsgBox Err.Descnption 
Resume Exit_binRetumPrevious_ Click 


End Sub 


Priaie Sub Command4_Cick() 
Application SetOption “Contirm Acton Queries’, Fatse 
DoCmd.SeW arnings (False) 
DoCmd.RunSQt “DELETE * FROM AMPL_RESULT,° 
Armel_Resutt 
Appication.SetOpion *Confirm Action Quenes’, True 
DoCimd. SetW arnings (True) 


End Sub 


Private Sub Command? _Cick{) 
On Error GoTo Err_Command?_Cick 


Dim stDocName As String 
Dim stUnkCriterla As String 


* Close the current form 

DoCrnd. Cosa 

* Open spacitied form 

stDoc Name = “*trmAnalyzeRe sul 
DoCmd.QpenForm siDocName, ,. stlinkCriterla 


Exit_Command?_Cick: 
Est Sub 


Err_Command? _Cack: 
Msg Bax Err. Description 


100 «Resume Exnt_Command?_Click 


101 


102 End Sub 


Form trmPraprocessing4 ExecutonSwitchboard 


OONO HAWN — 


BEQKRALERISSCELISRLEKRISSESHEGEESLEBESRRKECKSSRBIUSRRBB 


Atvibute VB_Name = *Form_trmPreprocessung& ecutlonSwithboard” 
Atvibutp VB_Creatabie = True 

Aftribute VB_Predecaedid = True 

Attribute VB_Esposed = False 

Opton Campare Database 

Opton Explicit 


Private Sub bmExt_Cick{) 
On Error GoTo Err_binEwt_Cick 


DoCmd. Cosa 


ExtbinExt_Cick 
Exit Sub 


Err_binEnt_Cick 
Msg Bax Err. Descripton 
Resume Ext_bmExt_Cick 


End Sub 


Privala Sub binReciassi tication_Ceck() 
On Ernor GoTo Err_binReclassiticatian_Cick 


Dim stDocNama As Sting 
Dim sfUnkCriterla As Sinng 


* Ctose the current form 

DoCmd Cose 

‘Open specified form 

stDocName = “frmRectassitication’ 

DoCmd OpenForm siDocName, ., stuinkCriteria 


Exit_binRectassificaton_Cicic 
Ext Sub 


Err_binRectassificatan_Cick 
MsgBox Err. Descnption 
Resume Exit_binReciassificabon_Cick 


End Sub 


Privata Sub binScrubMarineData_Cick() 
On Error GoTo Err_btnSerubMarineData_Cick 


Dim stDocName As Sting 
Dim stunkCmiteria As String 


* Ctose the current form 

DoCrnd Qose 

‘Open specitied form 

siDoc Name = “JrmScrubMarine* 
DoCmd.Open Form stDecName, .. stunkCriteria 


Exit_binScrubMarineData_Cick: 
Ext Sub 


Err_binScrubMarineData_Cicic 
Msg8ax Err Description 
Resume Exit_binScrubManneData_Cick 


End Sub 


Private Sub binSpacialAssignmant_Cicid) 
On Error GoTo Err_binSpecialAssignment_Cick 


Dim siDecName As Sting 
Dem slunkCnina As Stnng 


* Close the current form 

OoCernt Case 

* Open specified form 

stDocNams © “trmSpecialAsagrmnent 

DoCerst OpenForm stOocName. . , stlinkCrilena 


Eoot_binSpac alAssugnmeant_Cick 
Eset Sub 


Err_binSpecualAss gnment_Cicic 
MsgBox Err. Descnpaan 
Resume Ent_binSpacialAssgnmant_Cick 


End Sub 


Prnate Sub Command2_Cack{) 
Qn Gror GoTo Err_Commant2_Cock 


Dim sfDocName As Sting 
Drm stunkCntena As Sinng 


* Close the current form 

DoCrrd. Cine 

* Open specified form 

stOoc Name © “frmnclassQuotaPenalky AndF itl 
1060 DoCext.OpenForm st0ecName, . , sfunkCGrlena 
101 

102 Ext_Correnand?_Cick 

103 Et Sub 

104 

105 Err, Commanct2_Cack 

106 MsgBox Err Descripton 

107 Resume Ent_Cormmand?_Cick 

108 

109 End Sub 

110 Prvew Sub Cammand4_Céck{) 

ait 

112 Appécation.SetQptan *Confwm Acton Queries”, Fake 
113. DoCmd SefW arrengs (Fake) 

114 DoCmd RunSCh “DELETE * FROM AMPL_RESULT,” 
115 Ampl_Resutt 

116 Appkcatan SetOptan “Canlrm Acton Quenes®, True 
117 DotCrrd SeW arrengs (True) 

118 

119 

120 End Sub 

121 

122 Prnete Sub Commands _Ceck{) 

123.On Error GoTo Err_Command6_ Cock 

124 

125 Drm sDocName As String 

126 Dim stunkCritena As Stinng 


BELRREBSSESBRERESRESAaSIRARATIS 


127 
128 * Cose the current form 
129 DoCmd Coase 


130 ‘Open specified form 
131 sfDocName = “inmPrepa: eAndE sw cutpSaher" 
132 DoCed.OpenForm stOocNeme, , , stuinkCritena 


134 Ext_Command6_Cick 

125 Et Sub 

136 

137 Ert_Command6_Cicie 

138 MsgBox Err. Descnptan 

139 Presume Ext Commands _Cick 


143 Pree Sub Cormmands_Cack{) 

144 Cn Gror GoTo Err_Command8_ Cock 
145 

146 Dim siocName As Sinng 

147. Dim sfunkCatena As Sting 


148 
149° Close the custent form 
150 DoCmd Cose 


151 *Open specified form 
152 stDocName © “irmRDM_Main_Swtchbosd™ 
183 DoCrrd. OpenForm stDocNeme, ,, silinkCritena 


155 Ext, Commeand8_Chcic 

156 Est Sub 

157 

198 Err, Commands _ Cock 

189 MsgBox Err, Deacnpeon 

160 Resume Exnt_Commands_Cick 
161 

162 End Sub 


Form trmRDM_Man_ Switchboard 


: 


Affidbute VB_Name « “Form_trmRDM_Man_Switchboard™ 
Atribute VB_Creatabie « True 

Atiibute VB_Predeciaredid @ True 

Agnbate V8_Esposed « False 

Optan Cornpare Database 

Opron Expécit 

Prnete Sub Commandd_Cock{} 


OOnNAMNAWNH — 


Cn Gror GoTo Err_Command0_Cick 


19) Om stOocName As Sinng 
12. Ow siunkCrtene As String 


140° Cpes the current farm 

15 DoCrd Coss 

16 ‘Open spec:hed torm 

17 - stDocName e “trmlmporl ExportSwatchboard” 

18 OoCerst QpenForm stDocNams, .. stunkCGitna 


20 Ext_Corrrand0_Cick 
21 Ext Sub 


23 Err_Corrmmand0_Cack. 
24 MsgBox Err Descnptan 
25 Rosume Ext_Corrmarnd0_Cack 
27 End Sub 
Prnats Sub Commandt2_Cack{) 
Cn Gror GoTo Err_Cormnmanct2_Cack 


28 

2 

30 

31 = Dam siDocNams As Sinng 
2 Dm stunkCrwna As Sinng 
Ss] 
a] 


* Close fhe current form 


74 


1974 
1975 
1976 
1977 


1981 


1991 


DoCext Close 

* Open specified form 

s(ocNeme e *irmMamnitenanceSwtchboard 
BoCrrd. OpenForm s(OocNarme,. stunkCntsna 


Exot_ Conran? _ Chic 
Ext Sub 


Err_Conmmant2_Cack 
MsgBox Err. Descriptan 
Resume Ext_Conrmand2_ Chick 


End Sub 
Prnele Sub Command _Cick(} 
Cn Error GoTo Err_Command4_Cack 


Dim stOocName As Sting 
Dim sfunkCrntena As Sting 


* Cee the current form 

DoCind Case 

* Open specified form 

stDocNarre © “frmPrepracessingS E z=cutonS wait hboart 
DoCmd.OpenForm s(DocNeme, . , stunkCntera 


Ext_Conynand4 _Cacic 
Ext Sub 


Gr_Conrmand4_Cock 
MegBox Err. Descnptan 
Resume Ext Conmandé_Cick 


End Sub 
Pree Sub Command6_Cick() 
Qn Error GoTo Gr_Cornmrand6_Cack 


Dim stOocName As Simg 
Dim sfunkCntens As Sring 


* Coes the current form 

DoCmd Close 

* Open specified form 

s(ocName © *frmAnalyzeResul 

DoCmi OpenForm siDocNams, ,. stunkCntana 


Esst_Command6_Cicic 
Ext Sub 


Gr_Command5_Cack. 
MsgBox Err Deacnptan 
Resume Ext Command6 Chick 


End Sub 
Pre Sub Correnand8_Céck{) 
Qh Enror GoTo Err_Correrand8 _Cack 


Dim stDocName As Sting 
Dim stunkCritena As Sting 


* Cose the current orm 

DoCmd Cose 

* Open specified form 

socName © “irmGanerapRepot 

DoCand. OpenForm stDecName, ,, stunkCntana 


BESKSREBSLEBBARALBRESADAAARATLIBBAIGKIOR°ASCEYBRLEKIESESHEEEGKZEBBIKE 


100 Exet_Cormmands _Cacic 

101 Emt Sub 

102 

108 Err_Cammand8_Céck, 

104 MsgBox Er. Descnptan 
105 Rosume Eat_Cormnands_Cick 
106 

107 End Sub 

108 Private Sub binEmt_Cick() 
109 Qn Error GoTo Gr_binExt_Céck 
110 

111 

112 DoCrrel Coes 

113 

114Emt_binEat_Cick 

115 Eset Sub 

116 

117 Err_brEmt Chock 

118) MegBax Err Descnptan 
119 Resume Et_binExt_Cick 
120 

121 End Sub 


Form, trectassficatan 
Code 
Atnbute VB_Neme e “Form _trmReckisuficabon™ 
Aurbute VB_Creatable = True 
Attributes VB_Predeclaredid = True 
Almtate VB_Exposed «= Fale 
Qpton Compara Database 
Opoon Expbest 


Prnet Sub cmbClessNumber_AfterLipcda(} 
Dim stCormert As String 


Me bitReportDas = Me cmbCassNumber Columrn(2) 
Moe BEMCC « Me embCiaesNumber.Cohumry 4) 


* Convert the fiscal yeas ip a two digt number for ROG File 
s¥Comwert © CSa(Mo crbClasshasrber. Colurn(3)) 
st Comert © Right(srComent, 2) 
Mo DMAFY « Cink strComert) 
Me btAsagrmentType @ “Fr 
Erect Sub 
Prnee Sub cmbCassNurber_Enter() 


Om sScl As String 


BRIRPINVISSVRARGK=SCTVMMBEN— 


* Thes query finds the class numbers, report dates and class 

Convaning dass amociatied with the Chosen school 

29) s¥SQL & “SELECT SNA_EXTRACT ClassNusnber_PK, 

BNA_EXTRACT CiessComDele, BNA_ EXTRACT Repor Date, 

BNA_EXTRACT. FacalYear_PK. BNA EXTRACT MCC FROM BNA_EXTRACT INNER JOIN 
SCH_TGT_MOS ON (BNA_EXTRACT Coursehirnber_PK « 

SCH_TGT_MOS TCourseNumber_FIK) AND (BNA_EXTRACT Tar ge@4OS_PK « 
SCH_TGT_MOS. Target¥OS_FIQ) WHERE BNA_EXTRACT CoursoNumber_PK « 
Forme! trnPtec imasticabantcmbCaurseNumber AND SCH_TGT_MOS AMOS_FK « 
Forme trrRectass cabon'btAMOs.,* 

3X = Me.crrbClassNumber RowGauca © s¥SOl 

3t 

2 End Sub 


2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
210 
2119 
2181 
2112 
2113 
2114 
2118 
2116 
2197 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2122 
2133 
2134 
2138 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2148 
2146 
2147 
2148 
2149 
2150 
2151 
2182 
2183 
2154 
2155 
2156 
2157 
2188 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2178 
2176 
2177 
2178 
2179 
2186 
2181 
2182 
2183 
2184 
2188 
2186 
2167 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 


2210 
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Private Sub cmbCourseNumber_AlterUpda tn ) 

Me t¢AMOS « MetcmbCourssNumber Cotumn( 1) 
End Sub 
Prrvate Sub embSSN_AlterUpdarm)} 


Me DaSOl « MalembSSN Coksnny 1) 
Me pdGradDate @ MelcmbSSN. Column 2) 


End Sub 
Private Sub cmbSSN_Enter() 
Om stSQu As S¥ing 
s7SQL © “SELECT OISTINCTROW MARINE .SSN_PK, MARINE SOM, 


MARINE GradDate FROM MARINE LEFT JOIN ASSIGNMENT ON MARINE SSN_PK « 
ASSIGNMENT.SSN_FK WHERE (((ASSIGNMENT.SSN_FKK) fs Nud)):° 


SIKRALESSESBGRREBRSSSANAASFANIZASBIRALBRISSEIKRLLK 
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Ms cmbSSN RowGource « s7SOL 
End Sub 
Prrvals Sub cmbSSNF ind_After Upda e{) 


Om A As Recordset 

Set Ae Ms. Recor dsetGone 

R FindFirst °[SSN_FK} @ ° & Chw(34) & Me![cmbSSNFind} & Chr(34) 
Me Bookrnark » A. Boolonark 

Me! [embSSNFind) = Nut 

Me cmbSSN Seff ec us 


End Sub 

Prva Sub Delete_Cick{) 

On Enor GoTo Ert_Dolote_Cick 
DoCmrd DoMenultem acFormBar, acEd ivan, 8, , acMenuVer70 
DoCmd. DoMenuitem acFormBar, acEc&iMenu, 6, , acMenuVer70 


Ent_Delewe_Cicic 
Est Sub 


Err_Delete_Cick: 
MegBox Err. Bescrmpaon 
Resume Esat_Delets Cick 
End Sub 


Private Sub Close_Cick{) 
On Error GoTo Err_Ciose_Cick 


Om stDocName As Sinng 
Om sturkCatena As Sinng 


* Close current form 
Domed Crose 


* Open specified form 
stDocName = “imPreprocessing&ExscutonSwitchboard” 
DoCmd.OpenFarm stDocName, , , stlinkCniter:s 


Ext Ciose_Clicic 
Esat Sub 


Err_CGiose_Cick 


100 MegBex Err. Descrepeon 


101 
102 


Rersaume Ent_ Close _Chick 


103 End Sub 


104 


Form trr&chootAssgnments 
Code 


Sana VNaAWN=a 


HAZASBBAIRREBKBSBRBBRIKLOL 


Atmbute VB_Name e “Fann trmSchoolAssignments* 
Atrbute VB_Creatabie « True 

Atnbute VB_Predeclaredid = Trus 

Atinbute VB_Exposed « False 

Opton Compare Datahass 

Opbon Expbecat 

Preaats Sub Close_Cack/) 

Qn Error GoTo Ert_Ctose_Cick 


Om stDocNeme As Stang 
Om stunkCniena As Sung 
Om 1 As Dawbase 


Set db1 e CurrentDo() 


' Crosse the current lorm 

DoCrmd. Gose 

* Open specified form 

stDocName © “frmAnatyzeResuit 
DoCrnd.OpenForm stDocName, , , stlinkCaterna 
Forrs'trmAnalyreReaut SetFocus 


Ext_Ciose_ Clic kc 
Est Sub 
Ert_Ctose_Cick 
MagBax Err. Oescripbon 
Resume Ext_Ciose_Céck 
End Sub 
Private Sub Form_Currerd{) 
Om sv SOl As Sring 


Dam rec As Recordset 
Om do1 As Datahese 


Set do1 © CurrentObp 


' Calculates the total quote. and murber of schools for the run 
s¥ SQL = “SELECT Sum(SumOtQuota) AS TotwQuota, Count(SumOtQuota) AS 


NumberOtSchools FROM gry TotalQuotaF or Run;” 


43 Setrec © db! OpenRecordset(sxSQL, dbOpenSnapshot} 

“4 Me &¢TotQuote © recITotOuota 

4S Me tdNumberOlSchonis e rec!NumberOl Schools 

% 

47 ' Calcule'es the total rusnber of for the run 

48 SQL & “SELECT Sum( CountOtFiecalVear_PK) AS TotalAssigned FROM 
ary TotQuote FiedF or Run,” 

49 = Setrec = db1.OpenRecardset|s3SQL, dbOpenSnapshoh 

SO Me.béTotlAssgned « rec'TotlAssrgned 


$1 


19 


221% 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 


2221 


2223 


2274 


APE CE CECEE CE COLOR DCD CEEE ECE EEE CECCECEECELEPLEEELELE CEL EEL 


Me o¢TomlPercent®il = int(Me béTotlAssgned / Me tfTotalQuota) 


ei RLEK 
. 


Atnbute VB_Name « °Form_frnSchoots” 
Attribute VB_Creatabie @ True 

Attnbute VB_Predeciaredid = True 
Attnbuts VB_fxpased « Fake 

Opban Compare Database 

Opban Explicit 


Prevate Sub AMOS_P_Alter Update) 
Om rec As Recordset 

10 Om db1As Database 

11. OmsrSQLas Sring 


Oana wnawdn = 


13‘ Update the drop dawn Est for AMOS 

14 9 s¥ SOL = “SELECT Target40S_PK FROM 

qrylstUnusedT argetMiOSF ramTARGET_MOS WHERE TCourseNumber_PK = “ & 
18 Me AMOS_PK RowGource « s#SOL 

16 Me befTerge04OS_FK RowGource = stSOL 

17 

18 =‘ Update the AMOS_FK in the chuld relaton SCH_TGT_MOS 

19 ‘FormstfrmSchools!subtrmSchools! AMOS _FK Value @ Ms AMOS PK Value 
20 

21 ’ Update the TargeMOG_FK in the chid relaton SCH_TGT_MOS 

22 ‘Setdb1 @ CurentDX() 

23 «= Setrec @ db 1.CoenRecordsel( sx¥SOL, cbOpenSnapshot) 

24 ‘FormeltrmSchoots!subirmSchocis!TargetVOS_FK Value = reciTargetiOS_ PK 
25 

26 =" Input the correct MCC value lor the selected course 

27 8=sSQl e “SELECT MCC FIROM TARGET_MOS WHERE TCoursetasnber_PK « * & 
Me. SCourseNurnber_PK Value & 

28 3 3=9Setdbt e GrrentDb{) 

29 «©Setrec @ cb! CpenRecordset{seSOL, dbOpenSnapshof} 

30) —(Me.MCC. Value « recIMCC 

«5 | 


Om rec As Recordset 
Set db1 « Current0t{) 


32)‘ Update the TCourseNienber_FX in the chuid relaton SCH_TGT_MOS 
330 FormsitemSchools!subtrmSchook!'TCourseNurnber_FK Value o 
Ms SCourseNurrber_ PK. Vale 

xu 

35 End Sub 

% 

37 

38 Prete Sub bovCinar_Cick{) 

39 

ao Om doi As Databases 

41 GmsrSQl As String 

42. Omi As Integer 

43 

Aes 

4s 

4 

47 


s¥ SQL « “SELECT DISTINCTROW TARGET _MOS, TCourseNurber_PK FROM 


SCH_TGT_MOS. TargeMOS_FK AND TARGET_MOS TCoursehasnber_PK = 
SCH _TGT_MOS. TCourseNumber _FK WHERE (((SCH_TGT_MOS. TargeMOS_FK) is 
Nul)AND((SCH_TGT_MOS TCourseNusrber _FK) ts Nui) ORDER BY 
TCoursehusrber_PK,~ 
48 Setrec = db1,OpenRecordsat{stSOt, dbOpenDynaset) 
43 
It toc. EOF @ Fase Then 
tec. MoveLast 
rec MoveFirs! 
End It 


‘ Cisar unused course numbers from the targei_mos table 


{t rec, RecordCount > 0 Than 
Fore 1 To rec, RecordCount 
* Desables the achon query conirmaton message 
Appicatan. SeOpten “Confirm Acton Quanes”, False 
DoCmd. SetWarrengs (F ais) 


R2SSENUR RLEKRLS 


suSQL = “DELETE * FROM TARGET_MOS WHERE 
ARGET_MOS. TCourseNuriber_PK © 7 & rec fTCourseNiamber_PK & 


= 


63 @b1. Execute s¥SOL 

&4 

65 " Enabies the ac ton query confirmabon massage 
& Appbcaton.SeOpton °Confirm Acton Quenes”, True 
67 DoCmd. SetWarnngs (True) 

68 rec. MoveNent? 

6S Neod 1 

70—CoEndit 

71 

72 =‘ Update the Course Number List 

73 


s¥SOQL « “SELECT DISTINCTROW TARGET_MOS TCourseNuriber_PK FROM 
TARGET_MOS LEFT JOIN SCK_TGT_MOS ON TARGET_MOS. TargeM0S_PK = 
SCH_TGT_MOS. Target¥OS_FK AND TARGET_MOS TCourseaNusnber PK « 
SCH_TGT_MOS, TCourseNumber_FK WHERE (((SCH_TGT_MOS.Target¥0S_FIK) Is 
NuAND(SCH_TGT_MOS TCourseNumber_FiK) Is Nuf) (ORDER BY 
TCourseNumber_PIC* 

74 We SCourseNumber_PK RowGource e stSOL 

7S 

76 End Sub 

77 

78 Private Sub binRiesetAlPenabes_Cick{) 

79 

80 


wo 
-_ 


' Drsahies the acbon query confirmaton 
Applicaton. SerOpbon °Canfirrn Acton Quenes”, Fake 
DoCrrd. Set arrengs (F alse) 


DoeCmd RunSOL “UPDATE SCHOOL SET PanaltyFactor = 24,° 


* Enables the acton query confirmaton message 
Appicaton SerOpton “Confirm Actan Quenes”. True 
DoCmd.SetW amengs (True) 


crrbPenaly View © °1x° 
End Sub 
Private Sub embCourseNusnberFind_AfterUpciate( ) 


Om A As Recordset 

Set A « Me RecordsetClane 

R FindFirst *|SCourseNurber PK] = ° & Chr(34) & 
Me! (CrmbCourseNumber Find) & Chr(34) 

100 Ms Boolonark « A Booicnark 

$01 MellermbCourseNusribes Find] © Nul 

102 Me. SCourseNumber_PK Set-ocus 


BELKALESSESRBIEREBSR 


106 
106 Prrvats Sub crnbPenalty View_After Unda to) 
107 
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32538 
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RESBR 


SESSRSRRSSRRERRERRESEEE 


SRR 
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2413 
2414 
2415 
2416 


2451 


2457 


2461 
2462 
2483 
2464 
24 
2466 


24668 
24a 


106 Seisct Case crbPenalty View 


109 Case "4% 

110 pdPenafty Factor a 4 * 24 
V4 Case “ar 

t12 btPenalty Factory « 3° 24 
W3 Case “2° 

114 otPenaly Factor e 2° 24 
118 Case “1x 

116 pdPenafty Factor = 1" 24 
WW? Case ‘1/20 

118 btPenaltyFactr @ 24/2 
119 Case "1/3" 

120 biPenalty Factor @ 24 / 3 
121 Case “1/4 

122 ttPonaly Factor e 24 / 4 
123 End Select 


125 ‘Same the updsats 
126 DoCmd.DoMenwtem acFormBar, ecRecordsMenu, ecSeveRecad 


130 Prnvate Sub Conprand14_Cick) 

WH 

1322 Om svScl As String 

133 

134 ' Disables the ecton query confirrmatan 

135 Applicabon. SetOption "Canfirm Acton Queries”, False 

136 DoCrmd SelW arrengs (False) 

137 

136 =DoCmd FunSOL “INSERT INTO TARGET_MOS ( TCourseNurber_PK. 
Targe®4OS _PK, MCC ) SELECT OISTINCT BNA_EXTRACT Covrset\zsrber PK. 
BNA_EXTRACT, TargetMioS_ PK, BNA_EXTRACT MCC FROM BNA_EXTRACT;* 
130 

140 ‘ Enables the ection query Confirrrafon message 

141 Agpbcatan. SetOpten “Canfirm Acton Queries", True 

142 DoCmd.SetWVarrangs {True} 

143 

144 ° Update the Course Number List 

14S s¥SQi e “SELECT OISTINCTROW TARGET_MOS. TCourseNumber_PK FROM 
TARGET_MOS LEFT JOIN SCH_TGT_MOS ON TARGET_MOS TargelOS_PK « 
SCH_TGT_MOS. TargetMOS _FK AND TARGET_MOS. TCourseNurnber_PK = 
SCH_TGT_MOS. TCourseNumber _FK WHERE (((SCH_TGT_MOS TargeMOS_FX) |s 
Nu) ANO((SCH_TGT_MOS TCourseturnber_Fi) Is NB) ORDER SY 
TCourseNumber_ Pt” 

146 Me SCourseNurber_PK RowSource « s¥SOL 

147 

148 End Sub 

149 

150 

151 Prvets Sub Comranct30_Cicid) 

152 Dim tr As Form, cf As Consol 

183. Dim veritm As Variant int As integer 

154 Dim s®SCl As String 

155 

186 ‘Ensures fe current record fs sine b te SCHOOL table 

157 DoCmd DoMenudtem acFormBar, ecRecordsMenu, acSaeRecord, , 

188 

189 ° Thus code enters tw selected Targo! MOS's ini he SCH_TGT_MOS 
160 Set frm e ForreltrimGchoos. 

161 Set cf @ frmisiTargeMOS_FK 

162 For Each vevitm in cf. lernsSelecad 

163 For ind @ O To cf CousmCount - 1 


164 

165 * Ths puts the value found In the ist bax Into @ text box, 
malang It readable by the query 

166 Forme!frrSchoos!TargetValue Vake « ci Column(in’, varitrn) 
167 

168 * Disables the action query confirmation messages 
169 Appicatan. SetOption “Confirm Acton Queries’, Faise 
170 

171 * Enters the value into the SCH_TGT_MOS tbie 

172 DoCrd OpsnQuary “qryUpdaeSCH_TGT_MOSs”* 

173 

174 * Enables the action query confirmat.on message 

175 Appicaton.SetOpton “Confirm Acton Queries", Trus 
176 

177 Next intt 

178 Next varlim 

179 


180 «‘ Updeta the Target MOS Ist 

181 s¥SOQL @ “SELECT [Target40S_FK) FROM [SCH_TGT_MOS] WHERE 
(SCourseNumier_FX] « * & Forms!trnSchools! SCaurseNumber_PK.Vake &  & 
* AND AMOS _FK © ~ & FornstfmrGchoos!AMOS_PK Vake & “ 

182) FormettrmrGchoots|LisfTarge(MOS_FK_}4atory RowSource © s¥SOL 

183 

184 ° Update the Potndal Target MOS ést 

165 swSQt » “SELECT Targeww0s_PK FROM 

oryListUnsedT argeMOSFramTAAGET_MOS WHERE TCourseturrber_PK = ~ & 
186 «Me. efTargetMOS_FK RoawSource = s¥SOL 

te? 

188 ‘Update the Course Number List 

189 «= s¥SCL @ “SELECT DISTINCTROW TARGET_MOS. TCourseNumber_PK FROM 
TARGET_MOS LEFT JOIN SCH_TGT_MOS ON TARGET_MOS, Target4OS_PK « 
SCH_TGT_MOS. Target4OS_FK WHERE (((SCH_TGT_MOS. Tar get4OS_FK) Is 
100 Mo SCourseNurniber_PK.RowSource « s¥SOL 

191 

192 ‘Update ime stamp 

193 [Sch_TimeStarp] « Now 

194 

195 

196 End Sub 

197 

196 Prvete Sub Command40_Cick)} 

199 Dim fm As Farm, cil As Convol 

200 «= Dim varitn As Variant, int As Integer 

201 Dim s¥SQL As Sting 

202 

203‘ This code Deiets the selected Target MOS's and its amicmaiad 

entries, trom te SCH_TGT_MOS tabie 

204 = Set frm @ FormstirrSchools 

206 «Set cl © frmiLisiTar gets _FK_Hestory 

206 = For Each vert In cll emaSepcrnd 

207 For ing = 0 To ci CoasmCounl - 1 


206 

208 ‘Ths pus the value found in he fs! baz int a leat baw 
maleng It reedenie by te query 

210 Formettrr&chools!TargetVatue Vale = ci Cotumn(ini. varitm) 
211 

212 * Oisabies the acton query confirmation message 

213 Appicaton SetOptan “Confirm Acion Quenes”, False 

214 

218 ‘ Doles tho recard associshd with the specified value fram 


fhe SCH_TGT_MOS tabie 
216 DoCrnd.OpenQuery “gry Dele SCH_TGT_MOS” 
217 


218 * Enabies the action query carfirmaton message 
218 Appiicatan. SetOption “Canfirm Acton Queries”, True 
220 

21 Nest ind 


16 
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2481 


2483 
2484 
2488 


2487 
2489 


2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 


2561 


33 


: 


2581 


BRERRERR 


2590 
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222 «Nex wesitm 

223 

224 «= * Update the Target MOS ts? 

225 «s®SOL e “SELECT [Targe*40S _FK) FROM [SCH_TGT_MOS] WHE RE 
[SCourseNumber_FK] = ° & FormalfrmSchools!SCourseNumber_Pr Vase &  & 
* AND AMOS_FK @ * & FormstirmSchoos! AMOS _PK Value & 

226 = Forms! inmSchoos!LisfTarge MOS_FK_Hstory. RowGource « stSOL 

227 

228 * Update the Pownsal Targot MOS Est 

229 swSOL @ “SELECT TargetvoS_PK FROM 

gyUstUnusedTarge MOSFramTARGET_MOS WHERE TCourseturnbor_PK © 7 & 
230 Me.siTargeMOS_FK RowSource © sSOL 

¥A}| 

232) Update he Course Nurbeor List 

233 «svSdl ~ “SELECT DISTINCTROW TARGET_MOS TCourseNumber PK FROM 

TARGET_MOS LEFT JOIN SCH_TGT_MOS ON TARGET_MOS TargeMOS _PK « 
SCH_TGT_MOS. TargetMOS_FK WHERE (((SCH_TGT_MOS TargeMOS_FIK) Is 
234 = Me SCourseNurrber_PK. RowSource « sSOL 

235 

236 «0° Updab wre stamp 

237s [Sch_TwreStarrp] « Now 

238 

238 End Sub 

240 

24) Private Sub Form_BeforeUpdate(Cancel As (nipger} 

242 

243° [Sch_TwneSuwrp) @ Now 

244 

245 End Sub 

246 

247 Private Sub Form Current) 

248 Dim s¥SCL As Sting 

249 

250° Updats tre Potential Target MOS fst 

251 s@SQL « “SELECT Target40S_PK FROM 
vyUstUrasedTargoMMOSFramTAAGET_MOS WHERE TCourseNumber PK © ~ & 
252 Me.s{Target4OS_FK RowSarce e s7SOL 

23 

24 =‘ Updab fhe Target MOS List 

2S swSOl « “SELECT [Target4OS_FK] FROM [SCH_TGT_MOS] WHERE 
(SCoursehusrber_ Fi} = ~ & Me SCourseNumber_PK Value & ~ & ° AND AMOG_FK 
=~ & Me AMOS_PK. Vale & — 

26 Me Lisffarget4OS _FK_istory. RowSource © strSOL 

a7 

258 ° Update the Course Number List 

2S swSQL « “SELECT DISTINCTROW TARGET_MOS TCourseNumber_PK FROM 
TARGET_MOS LEFT JOIN SCH_TGT_MOS ON TARGET_MOS Targe®40S_PK = 
SCH_TGT_MOS Target¥OS_FK AND TARGET_MOS TCourseNurber_PK = 
SCH_TGT_MOS TCourseNumber_FK WHERE (((SCH_TGT_MOS Targe#MO0S_Fix) Is 
Null} AND((SCH_TGT_MOS. TCourseNumibet _F) Is Nu))ORDER BY 
TCourseNumber . 


PK, 
Me SCourseNurmber_ PH RowSource « s?SQL 


260 

261 

262 «= ° Forces user ) enter detn lar course number, belare te Assigned 
263 =~ isNu( Me SCourseNumiber _Ph Value) Then 
aA Me'AMOS _PiC Enabied = False 

265 

266° Alews tho uter i enter an assigned MOS 
267 «Ene 

288 Me!AMOS _PK Enabisd » Trus 

269) =O Endit 

270 

271° Prevents fhe user from accidentaly changing a course rmurber 
272 14 IsNuat SCourseNurrber_PiK) Then 

273 Me! SCourseNumber_PiC Locked « Fale 
274 Esa 

275 Mo! SCourseNumber_PiC Locked « Trus 
276 End 

27 

278 * Prevents the user tram accidently changng an AMOS 
279 If IsNuMAMOS_PIK) Then 

280 Mel AMOS _Px Locked « Fale 

281 Ee 

22 Me! AMOS _PrC Lociasd « True 

283 «EndIf 

2A 

28S * Updaw fhe penaly tector vew 

286 Select Case tfP analy Factor 

27 Case 96 

238 crrbPenally View «= °4x¢ 

288 Case 72 

20 cirbPenally View = “3° 

y.-) | Camm 48 

22 crrbPonaltyView » “2° 

23 Case 24 

204 embPenaly View « °1x° 

25 Cas 12 

26 crnbPonally View « °1/2x° 

27 Case 8 

28 crrbPonalty View = "1/20 

298 Cam 6 

m0 crrbPenally View © “1/4 

31 = End Seinct 

x2 

Ka} 

Ko. | 

5 

306 End Sub 


207 
308 Private Sub SCourseNumber_PK_AfterUpdats() 


8 


30 © Oimrec As Recordset 

311 Dun db! As Database 

2. «DimsvSQu As Sting 

a3 

314) = * Updinte the crap down bs! for AMOS 

315) swSOL. @ “SELECT Target40S_PK FROM TARGET_MOS WHERE TCourseNumber _PK 
o ” & Me. SCourseNurrber_PK. Value & “ 

316 Me. AMOS_PK RowSaurce » s¥SOL 

317) We efTarge0S_FK.RowSource © s¥SOL 

a6 

319 |‘ Alovs fe umer & enter an azegned MOS 

220 «Ma! AMOS_PK Enabied « True 

21 

322 End Sub 

3223 Prvale Sub binDetpte_Cick{) 

324 On Error GoTo Err_binDoiot_Cick 

ws 

226 ‘ Otsabies the action query confirmaion message 
327 = Appicaton SeOpton “Canfirm Acton Queries”, Faise 
x28 

229) |‘ Delews he record associaled wh fhe specified value tram the 
SCRLTGT_MOS table 

330) Derr. OpenQuery “gry Dem eSCH_TGT_MOSEnsy* 


K<}] 
XR‘ Dewtes the record axancisiad wh to specified vaie from the 
SCHOOL Inbie 


333 DoCrel. OperQuary “gry Cem BSCHOCLEnty” 
x 


33° Enabies he acon query Confirmadan meenage 


2610 
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2621 


2624 
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2676 


2710 
2711 
2712 
2713 


336) Applicaton SetOpron “Confirm Acton Quanes’, True 

337 

338 «=©DoCmd.DoMenultem ac FormBar, acEdttenu, 8, . acMenuVer70 
339 DoGmd DoMenultem acFormBar, acEdtvienu, 6, . acMenuVar70 
340 

341 Ext pinDelow Cick 

342 Ent Sub 

343 

344 Err_binDelote_Cick 

34S MsgBox Err Descnptan 

346 «=Remsne Evnt_birDetote_Cick 

347 

348 End Sub 

349 Preate Sub binClose_Cicid) 

350 On Error GoTo En_binGose_Cick 

351 

352 

333 =DeCrd. Corse 

354 =DoCrd.CpenForm “frmMaintenanceSwitchboard 


355 

356 ExtbinGose_Cick. 

357 Ext Sub 

358 

359 Err_binCinse_Cick 

360 MsgBox Err. Desenpton 

361 Resume ExtbinCose_Cick 
362 

363 End Sub 


Form ttmSchoolToPEF_Mant 


Code 

1 Attribute VB_Name = °Form_inmSchoolToPE F_Mainf 
2 = Atribute VB_Creatable « True 

3. Attibute VB_Predeciredid = True 

4 Atiibute VB_Enposed « Fake 

5 Opvon Compare Database 

Opbon Expecit 


Private Sub binClose_Cick() 

9 Oh Error GoTo Err_btrCiose_Cick 
10 

W 

12 Dori. Cose 

13. = DoGmd_ OpenForm °frnMasrtenanceSwichbaard” 
14 

15 Ext_binGose_Cick: 

16 Ext Sub 

7 

18 Err_binClse_Cick 

19 = MsgBox Err. Descnpton 

20 2390 Resurns Ext_binClose_Cick 

21 


End Sub 


Prevais Sub binDelete_Cicid) 
On Error GoTo Err_binDelets_Cick 


DoCmd. DoManu!tem acFormBar, acEtitvienu, 8, . acMenuVer70 
DoOmd. DoMenultem acFormBar, acEdtenu, 6, . acMenuVer70 


Ext_binDelew_ Cicic 
Ext Sub 


Err_binDelote_Cocic 
MsgBox Err, Descnpeon 
Resume Ext_binDelete_Cick 


End Sub 
Private Sub embCourseNumber Find_Aftar Updain() 


Dim R As Recordsat 

Set A « Me. RecordsetCione 

R FindFirst *{SCoursaNumber_PK] = ° & Chr(34) & 
![cmbCourseNurnber Find] & Chr(34) 

Me Boolcrark « RBoobtrark 

Mo!|cmbCourseNurriber Find] = Nud 

Me. SCourseNumber PK Sefocus 


End Sub 


Prrate Sub Form_Current{) 
Own s#SQ As Sinng 


* Update the Potantal PEF kst 

svSCh = “SELECT DISTINCTROW [PEF].[PEF_PK] FROM PEF LEFT JOIN 
arySch_Pef ON (PEF].[PEF_PK] = [qrySch_Pef].[PEF_FK] WHERE 
{[orySch_Pof}.|PEF_FKK] Is Nud) ORDER BY [PEF].[PEF_PK};° 

Me ListUneniec tedPEF. RowSource = sSOb 


* Updalp the Selected PEF List 
stSOh » “SELECT |PEF_FK] FROM arySch_Pot;° 
Me LisSelactedPEF.RowSource «= s¥SOl 


End Sub 


Prreate Sub LettArrow_Cack{} 
Dum trm As Form, ct As Convol 
Dun varitm As Variant inti As Integer 
Dim s#SQ As Sinng 


* Ensues the current racord is save io the SCHOOL tabie 
DoCmed. DoMenulterm ac FormBar, ac RecordsMenu, acSaveRecord, , 


* Thes code enters the selected Target MOS's inin the SCH_TGT_MOS 
Set trm «= Forms!IrmSchoolToPE F_Maint 
Set cf = IrmListUnselsctedPEF 
For Each varttm In cti lterrsSetacted 
For int = 0 To cf.CoksmnCount - 1 


PSANAARANVIABSARRLBRIBVEY 


* This puts the value found in the Sst box into a text box, 


maleng it readable by the query 

80 FormslirmSchoolToP EF_Mamt!PE FV alue Value = cf Column, 
81 

& * Disables the acton query confirmabon message 

63 Appbcaton.SeiOpton “Confirm Acton Quaries’, Fae 

84 

a5 * Enters the value into the SCH_TGT_MOS table 

86 DoCrrd.QpenQuery “gry UpdatpSCH_PEF* 

87 

68 * Enables the acton query confirmaton massage 

99 Appic.aton.SetOpton *Confirm Acton Quarnes’, True 

90 

91 Neat ing 

92 Neo varlim 

E<) 

94 ' Update the Potential PEF st 

95 strSCl « “SELECT DISTINCTROW [PEF].[PEF_PK] FROM PEF LEFT JOIN 


fe 


2731 


2740 
2741 
2742 


2744 
2745 
2746 
2747 
2748 


2751 


2763 


2768 


2810 
2611 
2812 
2813 
2614 
2818 


2617 
2818 
2819 


2821 


2824 


BRSRSR 
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Be 


PEREEREER ERR R ARGS 


a 


BRRERRER 


orySch_Pet ON [PEF] [PEF_PX] = [arySch_Pef].[PEF_FK] WHERE 

(IqrySch_Pef].[ PEF _FK) Is Nud) ORDER BY [PEF].|PEF_PX];° 

86 Me,.ListUnsolectedPEF RowSource = s¥SOL 

97 

98 ' Update the Setected PEF Ust 

99 s®SCh » “SELECT [PEF_FK) FROM qrySch_Pef;” 

100 Mo.LestSelectedPEF.RowSource = srSCL 

101 

102 End Sub 

103 

104 Private Sub PaghtArrow_Cécid} 

105 Dwntrm As Form, ct As Convol 

106 Own veritn As Vanant, int! As Integer 

107 Din s¥SCh As Sinng 

108 

108‘ This code Delets the selected Target MOG's and its associated 

entnes trom the SCH_TGT_MOS table 

110 © Set frm = Forma!inmSchoolToPEF_Maunt 

111 Setcl = trmLstSenctedPEF 

112) For Each veritn In ct lterra Selec ted 

113 For int « 0 To cf CoksmnCaunt - 1 

114 

W15 ‘Thes puts the valve found in the st box ints a text box, 

majang it readable by the quary 

116 Forme! frSchoolToPEF_MantPEF Value. Value = ct. Couumninti, 
117 

118 ’ Drsables the acbon query confirrmabon message 

119 Appicabon.SeOpton °Confirm Acton Queries”, Fase 
120 

121 * Deletes the record associated with the specified value from 
the SCH_TGT_MOS table 

122 DoCrl.OpenQuery “gry DeletsSCH_PEF” 

123 

124 * Enables the acton quary confirmation message 

12 Appbcabon.SetOptsan “Confirm Acton Queries”, True 
126 

127 Nend int 

128 Nex varlim 

129 

130° Updatp the Potental PEF ést 

131 swSQL « “SELECT DISTINCTROW [PEF].{PEF_PK] FROM PEF LEFT JOIN 

qrySch_Pel ON [PEF] [PEF_PX] « [qrySch_Pel]. [PEF_FK] WHERE 

{[qrySch_Pef] [PEF_FIK) Is Nu) ORDER BY [PEF]. ([PEF_Px]:° 

132 Me ListUnselectedPEF.RowSource = stSOh 

133 

134 ‘ Updatp the Selected PEF List 

138 swSQL_ » “SELECT [PEF_FK] FROM ary Sch_Pef.” 

136 Me LustGelectadPEF RowSource = s¥SOL 


137 
138 End Sub 

Form trmSchoalToPropertyiMamt 
Code 


Atyibuie VB_Name = °Form_trmSchoolToProperty Mant 
Afribute VB_Creatabie « Trun 

Alr bute VB_Predeciasedid = True 

Atribuis VB_Exposed = Fase 

Opban Compare Database 

Option Expheit 


Prats Sub binClose_Chcid) 
On Error GoTo Err_binGiosa_Ciéck 


DON ANAWN — 


12 DoCmd.Cinse 
13. DeOm. QpenForn *IrmMantenane oSwatchboard” 


15 ExtbinGose_ Click. 
16 Ext Sub 


18 Err_binCiose _Cick 

19 MsgBox Err, Dascnpton 
Resume Ext_binGlose_Cick 

End Sub 


Prrats Sub binDelote_Cack() 
Qn Error GoTo Err_binDelete_Cick 


DoCmd. DoMenultern acF onrrBar, acEdtitenu, 8, . acMeruVer70 
DoCrd. DoMenulterm acF orrBlar. acEditvienu, 6, , acMenuVer70 


Ent_binDalew_Cicle 
£01 Sub 


Err_binDetote_Cicic 
MsgBox Err. Descripkan 
Resume Ex t_binDeles_ Cick 
End Sub 


Prrais Sub binLevel0_Céck{} 
Qh Error GoTo Err_binLevend_Clck 


Dim IngRecordNum As Long 
Dim stSCh As Sinng 


IngRecordNum « Me. Currentfecord 
DoGnd Close 


DeOmd.OpenForm *fraSchoolToPropLevelMain? 
DoOmd.GoToRecord acD atForm, “immSchoolToPr opLavelMant , acGoTo, 
ordNum 


Forms! trrSchoolT oPt oplevelMaint ChasenLeve « 0 


| 


5S “Update the selected property 6st 

56 sSd = Ea [FPropertyName_FK) FROM FUND_SCH_PROP WHERE 
SCouryeNumber_FK = " 4% 

Forms!trenSchoalT oProplevelMaint!SCourseaNumber_PK. Value & °° & * And 
AMOS_FK « ° & FormattrmSchoolToPropLevelMant AMOS_PK. Valeo & " & ° 

And Level « ° & Forms! trenSchoolToPr opt evelMaint! ChosenLevel & °° & ° 

UNION SELECT [LPropertyNamne_FK]} FROM LOG_SCH_PROP WHERE $CourseNumber_Fi. 
= ~ & Forms! irmSchoolToPr op evelMant! SCoursaNumber_PK. Vals & 7 &° 

And AMOS_FK « ™ & Fonra!trmSchooiToPt op_eveMant AMOS _PtCVabe & ~ & 
And Level = & Forms! itmSchoolToProp_eveiMant ChosenLevel & 

57 = Fors! trmSchoolT oPropLevelMantisLeveid. RowGSource « stSOL 


Ext_binLevaid_Cick 
Ent Sub 
Exr_binLevel0_Cick 
MsgGox Err. Descrpton 
Resume E«t_binLevei0_Cick 


End Sub 
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68 Prrvate Sub binLevell_Cécikd) 

70 On Ester GoTo Er_birLeveli_Cick 

71 

72 = Cam ingRecordNumn As Long 

73.» Dum stSCL_ As String 

74 

75s ingRecardNum « Me CasrantRecard 

76 

77 OoOrnd.Closo 

78 

73) «  DoCrmd.CpenForm “trmSchoolToPr apLevaiMant 

80 DoCimnd GoToRecerd acDataF arm, “trmSchooiToPropLeveMamnt, acGoTo, 
os as 

at Forms'femSchoalT oPropt evelMaunti ChosanLevel = | 

&2 

63 | Updalp the selected property ist 

84 strSQh e “SELECT [FPronertyName_FK] FROM FUND_SCH PROP WHERE 

SCourseNumber_FK - ° & 

Forms!trrSchoolToPropLevelMaint’S CourseNurnber_PK Value & ~ & “ And 

AMOS _FK @ ~ & Fonrs!trmSchodlToPr oplLoveiMamti AMOS _PK Value &  & ° 

And Level  ~ & Formns'irmSc hoolToPropLevelMamnt ChosenLeavel & @ & ° 

UNION SELECT [LProperty Nasne_FIK] FROM LOG_SCH_PROP WHERE SCoureaNurmber_FK 

e * & Farms! trmSchoolToPropLevelMant SCourseNurber_ PK Value & ~ & ° 

Asa AMOS _FK @ ° & Forma! frmScheolToPropLeveMamt! AMOS _PK Value & 7 & 

Ard Level @ & Forms'temSchoolToPropLeveMamt!ChosanLeval & 

Forms! trmSchoolToPt apLevelaunt s8_evel. RowSource « st'SCl 


Ex t_binLevall_ Cicic 
Ext Sub 


Err_binLevel1_Cacic 
MagBox Err Descnpton 
Resure Ext_binl evell_Cick 
End Sub 


Private Sub binLeveli2_Cick{} 
On Error GoTo En_binewel2_Cick 


Dum tingRecerdNum As Long 
100 OumstSCL As Sing 


SBESKFPBERSSBESER 


102 IngRecordNum = Me CusrentRecord 
104 DoCmd Ciose 


106 DoCmd.OpenForm *trmSchoolToPr opLevelaint 
107 DoCmd.GoToRacord acDatsForm, “irmSchoolToPropLevaMant, acGoTo, 


IngRecordNum 

108 Forms'femSchooiToPr apleveliMant!ChosanLevel © 2 

108 

130 ©‘ Update the selec ind property ist 

1330 stSQL e “SELECT [FPropertyName_FK] FROM FUND_SCH_PROP WHERE 


SCourseNumber PK Value & 7 & * And 
AMOS _FK = ° & FormsttrmSchodiToPr opt evelMantiAMOS_PK Value & 7 &° 
Ard Level e * & FormsttrmSc hoolToPropLeveliMamt ChosenLeval & " & ° 

UNION SELECT [LPropertyNamne_FIK] FROM LOG_SCH_PROP WHERE SCourseNumber_FK 
e ~ & Forte! IrmSchoolToPropLevelMant SCourseNurnber_PK Value & “" & ° 
And AMOS_FK « ~ & Forms!trmSchoolToPropleveltamntAMOS _PK Value & 7 & 
Ards Level e & Forms!irmSchoolToPr opLevelMant'ChosenLovel & — 

112) Forms!ierSchoolToPr op_eveliMamt isi veld. RowSource « sirSCl. 

113 

114 Ext _binleve?_Cicic 

115 = Eat Sub 

116 

117 Ere_binLever2_Céck 

318 MsgGox Er Descnpton 

119) Resurre Ex binLevet2_Cick 

120 

121 End Sub 

122 

123 Prvete Sub binLevet3_Céckd) 

124 On Error GoTo Err_binLeve_Cick 


126 «Dim ingRecordNusn As Long 
127 OnnstrSQL As Sinng 


123 IngRecordNum @ Me Currenthecord 
13% = DoGrd.Clse 


133. DoCmat OpenForm “trmSchoolToPropLevelMant 
134 DoCmr GoToRecord acDamFarm, “trnSchodlToProplevelMant, acGoTo, 


ingRecardNum 

135 Forms! frmSchoolToPropLevelMasnt! ChasenL_evel = 3 

136 

137 ' Update the selected property tst 

138 strSQL - “SELECT [FPropertyName_FK] FROM FUND_SCH_PROP WHERE 
SCourseNurber_FK « ° & 

FormstianSchoolToPropLevelMamt'S CourseNurber PK Value & 7 & ° And 
AMOS_FK « * & Forns!trmSchod'ToPropLaveMamnt AMOS_PK Value & 7 & ° 
Asa Level @ ° & Forms!irmSchoolToPropl avelMantChosenLevai & 7 & * 
UNION SELECT [LProperty Name_FIK] FROM LOG_SCH_PROP WHERE SCourseNurnber_FK 
e * & Farms! trmSchoolToPropLevalMant SCourseNumber_PK. Value & 7 & * 
Arad AMOS_FK e ~ & Forms! trmSchoolToPropLeveiMamt AMOS _PK Value & 7 & 
Arej Loved e & Forms!iemSchoolToPropleveMant ChasenLevel & = 

139 Forms'fmmSchoolToPr opLevelMant' tl eveld. RowSource « stSOL 

140 

141 Eat _binLevet3_Cicic ' 

142 EmiSub 

143 

144 Err_binLeve_Cicic 

145 MsgBox Err Deecnpton 

146 RPemsre Ext binLeveS_Cick 

147 

146 End Sub 

146 

150 Prrvats Sub brnLeves4_ Cock) 

151 On Error GoTo Err_benieweit_Cick 

182 

183 Om ingRecardNum As Long 

154 Onn strSQL As Sting 

18S 

156 ingRecordNum « Me Qurrenecord 

187 

156 DoCmd.Chose 


160 DoCrn OpenForm *frmSchoolToPr ap_evaiMant 
181 OoCGmd.GoToRecerd acDaiaForm, *irmSchodiToPropl evelMmnl, acGoTo, 


ingRecordMsn 

162 FoanmelinrGchoolToPropLeveiMunt ChosenLevel = 4 

163 

164 ' Update te selected property Ist 

165 sevSCl e “SELECT [F PropertyNemne_FK] FROM FUND_SCH_PROP WHERE 
SCourseNumber _FK « ° & 

Forms 'trrGchoolToPropLeovelMaint’S Cour sehunber_PK Value & ~ & ° And 

AMOS _FK « ° & Farms!irerGchodToPropLevelManiAMOS PK Value & ~ 4° 

Asad Lavel e ° & Form! trmSchoolToPropLeveiMaunt! ChosenLevel & ~~ & ° 

UNION SELECT [LPropertyNene_FiK] FROM LOG_SCH_PROP WHERE SCourseNumber_FK 


18 
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3101 
3102 
3103 
3104 
3106 
3106 
3107 
3106 
31co 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 


» ~ & Forrra!trmSchoolloPrapLeveiMant SCoursehumber_PK Value & ~ & ° 
And AMOS _FK « ~ & Forms! rmSchoolToProplLeveMasmnt! AMOS _PK Value & 7 & 
And Level e & Forms!trmSchooiToPropLevelMmnt!ChasenLevel & © 

166 Farms!trmSchoolToProp_evelMantist_ ovel0 RowGource « srSOk 

167 

166 Ext_binLevelt_Cicic 

169 Ent Sub 

170 

171 Err_banLevet4_Cock. 

172 MsgBox Err. Deacnpton 

173. Resume Emt_binLevel4_Cick 

174 

175 End Sub 

176 

177 Prveis Sub binLevelS_Cick{) 

178 Qn Exrar GoTo Err_binLeve _Cick 

179 

180 Dun ingRecordMasn As Long 

161 Den svSCL As Sinng 

182 

163 ingRecordNum « Me QsrenfRecad 

184 

185 DoCmd.Cose 

186 

18? DoCrd OpenForm *tmSchoolToPropLeveliMa nt 

188 DoCmd GoToRecord acDataForm, “irmSchoolToPr opLaveMaint , acGoTo, 
ingRacordNam 

189 Farms'{rmSchoolToProplLevelMamnt!Choseni_evel e 5 

190 

191 * Updelp the selected property tst 

192 sySQL « “SELECT [FPropertyNesne_FK] FROM FUND_SCH_PROP WHERE 
SCourseNumber_FK « ° & 
Forma!irmSchoolToPropLavetMamt S Cour seNumber_PK Value & ™ & * And 
AMOS _FK « ~ & Forms! frrrSchoalToPropleveliMamt AMOS PK Value & ™ & ° 
And Level = “ & Farms!irmSchodToProp_evelMaint ChasanLevel & “* & * 
UNION SELECT {LProperty Nesne_FIK} FACM LOG_SCH_PROP WHERE SCaursefisnber_FK 
@ ~ & Farms! frmSchoolToPrapLevalMarnt SCourseNurber_PK Value & ~ &° 
And AMOS _FK e © & Formal frmSchoolToPrapleveIMamt! AMOS PK Value & ~ & 
And Laval = & Forrs'irmSchoolToPropLevelMaint ChosenLevel & = 

193 Forms!irmSchoolToPropLeveliduntis_ evel RowSource « s9SCL 

194 

195 Ext_binLeved;_Cick: 

198 Em Sub 

197 

196 Ert_binLeve_Cock: 

199 MsgBox Err Descripton 

200 «Resume Ext_binl eve Cick 

201 

202 End Sub 

a 

204 Private Sub binLewel6_Chc id) 

205 On Exrer GoTo En_btnevelb_Cick 

206 

207 «Dw ingRecordiun As Long 

208 «Den sxSQl As Sinng 

200 

210 = ingRecordAuen « Me Currenthiecard 

211 

212 DoCmd.Ciose 

213 

214 DoCmd. QpenForm “tmSchoolToPropLevelife nt 

215 DoCmd GoToRecord acDataForm, “trmSchoolToPronieavelMamt, ac GoTo, 
ingRecordNusn 

236 = Forms'frrrGchoolToPropLeveliMant! Chosenteval « 8 

217 

218 = ' Updaip the solacted property ist 

219 swSQL @ “SELECT [FPropertyNesne_FK] FROM FUND_SCH_ PROP WHERE 
SCourseNumber_FK = ° & 

Forms!trmSchoolT oPropievelMasnt! S Cour seNumber PK. Value & ~ & ° And 
AMOS_FK « ° & Format frmSchodlToPropLevelMaing AMOS_PK Value & ™ & ° 
And Level e ° & Forms!trmSchoolToProplevelMant ChosenLevei & *° & ° 
UNION SELECT {LProperty Nezne_FIK] FROM LOG_SCH_PROP WHERE SCourseNurnber _FK 
e * & Forme! frmSchoolToPrap_evalMaint SCourseNumber_PK Value & 7" &° 
And AMOS_FK © © & Fanne!irmSchoolToPrapLeveiMamt!/ AMOS _PRK Value & 7 & 
Ard Level» & Forms!trmSchoolToProp_LevelMami! ChosanLeval & ~ 

220 Forms! temSchoolToPropLevelMaunt ll evel RowSource « s¥SCL 

221 

222 Ext_binLevel6_Cacke 

23 ~EniSub 

224 

225 Err_binLevel6 _Cack 

226 = WegGox Err. Descriptan 

227 Remus Ext_binlevei6_Cick 

228 

222 End Sub 

70 

rA)| 

232 Priveip Sub cmbCourseNumber Find_AtterUpdaie() 

233 

234 «=Dwn R As Recordset 

235 «Set Re Me RecordsetCione 

238) «= RF indFirst “[SCourseNumber_PK] = ° & Chwi34) & 
Mea!lornbCourseNumber Find] & Chr( 34) 

237 Me Boolenark - R Booirnark 

238 © MelicmbCourseNumberFind] © Mud 

23@ «Me. SCourseNurmber_PK Sef ocus 


243Prnae Sub Form Curent) 

244 «Dwns?SOL. stinourl, svinput2 As Sting 

245 DwninLevel As Integer 

246 

247 =‘ Upde hel evel 0 ist 

248 = wie -0 

249 «tS. » “SELECT [FProperty Namo_FK] FROM FUND_SCH_PROP WHERE 
SCourseNumber_FK © ° & Me.SCourseNumber_PK Value & “ & ° And AMOS_FK « 
* & Me. AMOS_PK Value & ~ & ° And Level e * £ niLovei & ™ & ° UNION 
SELECT [LPropertyName_FK] FROM LOG_SCH_PROP WHERE SCourseNumber_FK = ~ & 
Me SCourseNumber_PK Value & @ &° And AMOS _FK e * & Me AMOS_PK Value 
& 78° And Love e° & nllovd & 

250 (Ma lsfLeveld RowGource « sk SOL 


a1 
252 = * Update the Level 1 Est 
23 wimees 1 


254 swSQL « “SELECT [FPrapertyName_FK] FROM FUND_SCH_PROP WHERE 
SCoursehurnber_FK © ° & Me.SCourseNumber_PK Valuo & ™ & ° And AMOG_FK o 

* & Me AMOS _PK Value & 7 & ° And Laval e* & iniLeval & ~ & ° UNION 

SELECT [LPropertyNarne_FK] FROM LOG _SCH_PROP WHERE SCourseNumber FR « 7 & 
Me SCourseNurrber_PK Vatue & ~ 4° And AMOS _FK - ° & Me AMOS_PK Value 

a7 &° AndlLaee “&rntad&” 

255 Ma biLevell RowGouce « s¥SOL 


as 
257 «= * Updep the Level 2 ist 
258 = infLevele 2 


259 «eS « “SELECT [FPropertyName_FK] FROM FUND_SCH PROP WHERE 
SCourseNumber_FK « ° & Me SCourseNumber PK Vaiue & 7 &° And AMOG_FK « 

= & Me AMOS_PRK Valin &  &° And Loved o *° 4 nfievel & © & ° UNION 

SELECT [LProperty Name _FK] FROM LOG_SCH_PROP WHERE SCourseNurrber_FK « ° & 
Me SCoursahumber_PK Value & = &° And AMOG_FK e ~ & Me AMOS _PK Value 


3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3123 
3130 
3131 
3122 
NB 
3134 
3135 
313% 
3137 
3138 
3139 
3140 
3141 

3142 
3143 
3144 
3148 
3146 
3147 
3148 
3149 
3150 
3151 

3182 
3153 
3154 
3155 
3186 
3157 
3158 
3159 
3160 
3161 

3182 
3163 
3184 
3165 
3166 
3167 
3168 
3169 
3170 
3173 

3172 
3173 
3174 
3175 
3176 
3177 
3178 
3173 
3180 
3184 

3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 

3192 
3193 
3194 


3216 
3217 
3218 


&™" &° And Level = ° & intLewil & °° 

260 «Ma IsiLevel2.RowGource = seSQL 

261 

262 intavela3 

263 s¥SQL » “SELECT [FPropertyName_FK] FROM FUND_SCH_PROP WHERE 
SCourseNurber_FK = * & Me SCourseNurrber_PK Value & “ & * And AMOS_FK = 
” & Me AMOS_PK Value & “" & ° And Level = ° & intLevel & * & ° UNION 

SELECT (LPropertyName_FK] FROM LOG_SCH_PROP WHERE SCourseNumber_FK = ° & 
Me SCourseNumber_ PK Value & °" & ° And AMOS_FK » ° & Me AMOS_PK Valo 
&™ & ° And Levels ° & intLevel & °° 

264 «Me tstLeve RowGource = s§SOL 

265 

266 intLevel = 4 

267 a¥ SOL » “SELECT [FPropertyName_FK] FROM FUND_SCH_PROP WHERE 
SCourseNumber_FK = * & Me SCourseNumber_PK Value & ~ & ° And AMOS_FK = 
" & Me AMOS_PK Value & “” & ° And Level = ° & intLevel & °° & ° UNION 

SELECT [LPropertyName_FK] FROM LOG_SCH_PROP WHERE SCourseNumber_FK =" & 
Meo SCourseNurber_PK Value & “° & " And AMOS_FK =” & Me AMOS_PK Value 
&°° &" And Levels ° & intLevel & °° 

268 Me IstLevel4 RowGource » stSOL 

263 

270 intLevel= 5 

271 = s¥SQt » “SELECT (FPropertyName_FK] FROM FUND_SCH_PROP WHERE 
SCourseNumber_FK = '° & Me SCourseNurrber_PK Valse & “" & ° And AMOS_FK = 
” & Mo AMOS_PK Vatue & “ & * And Lavel = ° & intLevel & °° & * UNION 

SELECT [LPropertyName_FK] FROM LOG_SCH_PROP WHERE SCour seNurrber_FK =” & 
Mo.S Cour seNumber_PK Vaiue & °* & ° And AMOS_FK =” & Me AMOS_PK Value 
&™“" &° And Levels ° & IntLevel & *° 

272 «=~Me bitLovelS RowGource = siSOL 

273 

274 = intLevel= 6 

275 «s¥SQL » “SELECT (FPropertyName_FK] FROM FUND_SCH_PROP WHERE 
SCourseNumber_FK « '" & Me SCourseNumber_PK Value & ~° & ° And AMOS_FK = 
* & Me AMOS_PK Vakue & “* & ° And Lave! = ° & IntLoval & ™ & ° UNION 

SELECT [LPropertyName_FK] FROM LOG_SCH_PROP WHERE SCourseNumber_FK =” & 
Me SCourse Number _PK Value & “ & ° And AMOS_FK =» " & Mo AMOS_PK Value 

& “" &" And Lael = * & intLevel & °° 

276 «Me lstLevei6 RowGource = st'SOL 

277 

278 

279 End Sub 


Form: trmSchoolToPropLevelIMaint 


i 


Atribute VB_Name = *Form_frmSchoolToPropLevwe Maint 
Atributs VB_Createbie = True 

Atvibute VB_Predeciaredid = True 

Atzibute VB_Es»posed = False 

Option Compare Database 

Opebon Expicit 


Private Sub birClose_Cick(} 
On Error GoTo Ert_binCiose_Cick 


Oana wr 


11 Dim ingRecordNum As Long 
13° IngRecordNumn = Me Currenthiecord 
15 DoCmd Close 


17 DoCrmd.OpenForm *trmSchoolToPr operty Maint’ 
18  CoCmd GoToRecord acDatmForm, ‘trmSchoolToPropertyMaint, acGoTo, 
IngRecordNum 
19 
Ext_binCiose_Clek 
Ext Sub 


Err_btr@tose_Ciick 
MegBox Er Descripton 
Resume Exit_binCiose_Cick 


End Sub 


Private Sub binDelote_Cack(} 
On Errors GoTo Err_binDelots_Clck 


BoGrd CoMenultem acFormBar, acEdiMenu, 8. acltenuVer70 
CoCmd.DoMenutem acFormBer, acEdiMenu, 6. acMenuVer70 


Ext_binDelete _Click. 
Ext Sub 


Er_btnDelete_Cick 
MsgBox Err Description 
Resume Ex1_binOelets_Cick 


End Sub 
Private Sub ChosenLevel_A fter Update{) 
Oim s¥SOL As Sting 


° Update the potanhal property list 

s¥ SQL » "SELECT DISTINCTROW [ary UnianAIPr operty] [FPropertyNare_PK} 
FROM ory Union AlProperty LEFT JOIN gry UnionProperty By Level ON 

{ary UnionAIPr oper ty] [FProperty Name_PK] » 

(ary UnionProperty By Level]. [F Property Name _FK] WHERE 
{[¢yUnianProperty By Level] [FPropertyNeme_FK] Is Nué).” 

S1—s Maa IstLevelUnused.RowSource = stSOL 

52  ' Update the selected property bt 

$3. s¥SOQL = "SELECT [FPropertyName_FK] FROM FUND_SCH_PROP WHE RE 
SCourseNumber_FK =~ & Me SCourseNurrber_PK Value & “* & ° And AMOS_FK = 
” & Me AMOS_PK Value & “ & ° And Level = ° & Me. ChosenLevel Value & 

& ° UNION SELECT [Property Neme_FK] FROM LOG_SCH_PROP WHERE 
SCourseNurber_FK = ° & Me SCourseNumber_PK Value & 7° & ° And AMOS_FK =» 
” & Me AMOS_PK Vatue & ~ & ° And Level = ° & Me. ChosenLevel Value & 


SBESSHREGS2SBRSKREBKSEESBVIRRRKREY 


Me IstLaveld RowGource s siSOL 
End Sub 
Private Sub cmbCourseNumber Find_Aftar Updaic,) 
Oim R As Recordset 
Set R = Me RecordsatCiane 
Ai FindFirst [SCourseNumber_PXK] = * & Chr(34) & 
i[embCour seNumberFind] & Chr(34) 
Me Bookmark « A Bookmark 
Me'[ermbCou seNumberFind] = Nu 
Ma .SCourseNumber PK SetFocus 
End Sub 
Private Sub Form_Current) 


Dim s¥SQL As Sting 


* Update the potental property list 
svSOL s “SELECT OISTINCTROW [ary UnionAlPT operty].[FPropertyName_PiK} 


FANTASSLRGIBFRIOSSEVHRE 
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2284 
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FERED 


FROM ary UnionAliProperty LEFT JOIN gryUnionPropertyByLevel ON 

[ary UrionAIPr operty] [FProperty Name _PK} = 

[ary Union Property By Level] [FPropertyNeme_F K] WHERE 
(laryUnionProperty By Level]. [FPropertyNarme_FK] Is Nus).” 

75 Me lstLevelUnused RowSource « s#SQL 

76 ° Update the selectad property ist 

7? = sv¥SQh » “SELECT (FPropertyName_FK] FROM FUND_SCH_PROP WHERE 
SCourseNumber_FK » ” & Me SCourseNumrber_PK Value & “ & “ And AMOS_FK « 
“ & Me AMOS _PK Value & °* & ° And Level = ° & Me ChosenLovel Vatue & 

& ° UNION SELECT [LProperty Name _FK] FROM LOG_SCH_PROP WHERE 

SCour s@Number_FK = 7 & Me SCourseNumber_PK Vaiue & *° & " And AMOS _FiK = 
* & Me AMOS _PK Value & “" & ° And Level = ° & Me ChosenLevel Value & 


Me tstLeveld RowSource » shSOL 


End Sub 


Privates Sub LeftArrow_Cick{) 
Dim frm As Form, cf As Conrol 
Dun varitn As Venant, int As Integer 
Dim stSOl As Sting 


* Ensures the current record ts save tb the SCHOOL tnbie 
CoCmd.DoMenultem acFornBar, acRecordsMenu, acSaveRecod, . 


* Trus code enters the selected Target MOS's into the SCH_TGT_MOS 
Set frm « Forma'tirmSchoolToPropLeveMaint 
Set cl « friniistLevelUnused 
For Each varitn in cf itemsSetec ted 
For inti » O To ¢f. ColumnCount - 1 


SSKEESLSESBESRREBRISIS 


“This puts the value found In the fiat box into a text box, 
maling it readable by the query 

FormaltrmSchoolToP ropLeveiMaint TargetVaiue Value x 
cf Commn(int, varitn) 

99 


8 


100 * Disables fhe action quary confirmation message 
101 Application. SetOption “Confirm Acton Queries’, Fabe 
102 DoCmd. Sef earnings {False} 

103 

104 ‘ Enters the value Into the SCH_TGT_MOS tabie 

105 CoCmd OpenQuery “gryUpdaieFUND_SCH_PROP’ 
106 DoCmd OpenQuery “qryUpdateLOG_SCH_PROP" 
107 

108 “Enables the action query confirmabon message 

109 Application. SetOption °Canfirm Acton Quenes”, True 
110 CoGmd SetWarnings (True) 

191 

192 Nex int 

193) Next vestim 


114 

135° Update the potentail property st 

116 s¥SOL» “SELECT DISTINCTROW [ay UnonAlProperty]).[FProperty Name_PK} 
FROM ary UmonAfProperty LEFT JOIN gry UntonPropertyBy Level ON 

[ryUnianAIPr operty} [FPropertyNeme_PK) = 

[@yUnionProperty By Level] [FProperty Name_FK} WHE RE 

([ary UnionProperty ByLevel] [FPropertyName_ Fi] Is Raui),” 

117 Ma. IstLevelUnused.RowSource = stSOL 

118 *° Update the selected property irs! 

119 s¥SOL » "SELECT [FPr opertyName_FK] FROM FUND_SCH_PROP WHERE 
SCourseNurnber_FK = ° & Me SCou seNurrber_ PK Value & “"& ° And AMOS_FK = 
“ & Mo AMOS_PK Value & “* & ° And Level = ° & Meo ChosenLevel Value & 

& " UNION SELECT [LProperty Name _FK) FROM LOG_SCH_PROP WHERE 
SCourseNumber_FK =” & Me SCoursehumber_PK Value & “" & ° And AMOS_FK 
" & Me AMOS_PK Value & “ & ° And Level = ° & Me ChosenLevel Value & 


120 Me IstLeveld RowGource = svSQL 
121 

122 End Sub 

123 

124 Private Sub Aightarrow_Cick(} 

125 Dim frm As Form, cf As Control 

126 Dim varitm As Variant, ind As integer 
127 Dim stSQt As Sting 


128 
129‘ This code Delets the selected Target MOS's and its associated 
erties from the SCH_TGT_MOS tabie 


130 Set fren » FormalfrmSchoolToPropLevelMaint 
131 Setcl « imstieed 

132 For Each verltm In cf iternsSelec od 

133 For ind & 0 To cf. CoturmmCount - 3 


134 

135 * Thus puts he vake found in the Ist box into @ text box, 

making it readable by the query 

136 Forma 'trmSchoolToPropLeveiMaint TasgetValue Value = 

68 Coumn(ind, verlim) 

137 

138 * Disables the action query confirmation massage 
139 Application SetOption *“Conirm Acton Queries’, Fase 
140 OoGmd Set ernings (Faise) 

141 

142 * Daietes the record associated with fhe specified vaiue trom 
the FUND or LOG SCH_PROP table 

143 OoCrnd.OpenQuery “gry DeleteF UND_SCH_PROP* 
144 DoCmd. OpenQuery “qryDeletelLOG_SCH_ PROP” 

145 

146 ‘ Enables the ection query confirmation message 

147 Application. SetOpton “Confirm Acton Queries", True 
148 DoCmd SetW amnings (Trus) 

149 

150 Next ind 

151 Next veritm 

182 


153° Update the potential property fist 

184 s¥SOL « “SELECT DISTINCTROW [qryUnonAlProperty) [FPropertyName_PK} 
FROM ary UnrenAlProperty LEFT JOIN qryUrvonProperty By Level ON 
[qryUnianAlProperty].[FPropertyNeme_PI] « 

[ary Ureon Property ByLevel).[FProperty Neme_FK) WHE RE 

(lary UnienProperty By Level]. (FPr opertyName_ FIX) Is Nul):° 

155 Moe.lstLevelUnused RowSource = s&SQL 

156 * Update the selected property ist 

157 s¥SOQL » "SELECT [FPropertyNeme_FK] FROM FUND_SCH_PROP WHERE 
SCourseNumber_FK » ° & Me SCourseNurrber_PK Vatue & ™ & ° And AMOS _FK « 
* & Me AMOS_PK Value & ~ & “ And Level = ° & Me ChosenLevel Value & 

& * UNON SELECT{LProperty Nome _FiK}] FROM LOG_SCH_PROP WHERE 
SCourseNumber_FK » ” & Me.SCourseNumber PK Vatue & “" & ° And AMOS _FK = 
” & Me AMOS_PK Value & " & ° And Levi = ° & Me ChosenLevel Vaks & 


158 Me btLeveld RowGource = s8SCL 
159 
180 End Sub 


Form. trmSerubMarine 
Code 
Atibute VB_Name « °*Form_frrScrubMar ine’ 
At@ribute VB_Creatable = True 
Atribute VB_Predeclaredid = True 
Aibute VB_Exposed = Fane 
Opkon Compare Database 
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& Option Explicit 

7s 

8 Private Sub Ciose_Cick{) 

9 On Error GoTo Err_Clroae_Cick 
10 

11 Dim alDocName Aa Sting 
12 Dim atLinkCriteria As Sting 
13 

14 * Close current torm 

15 DoCrd Cbse 


17 "Open specitied form 
18  s(DocName « ‘irmPreprocessngé EmcusonSwtchboard 
DoCmd.OpenForn sfDocName, ,, stuinkCriteria 


Ext_CGliose_Cick 
Ext Sub 


Err_Close_Cack 
MsgBox Er Descripton 
Resume Exit_Close_ Click 


End Sub 
Privals Sub cmbPefFind_AfwerUpdam ) 


Dim R As Recordset 

Set R « Me RecordsetCione . 
RFindFirst [PEF] © * & Chr(34) & Me'[cmbPetFind) & Chr(34) 
Me Bookmark « Ai Bookmark 

Me'TembPatFind) = Nul 

Me SSN_PK SetFocus 


End Sub 
Private Sub embSSNFind_After Update() 


Dim A As Recordset 

Set R = Me, RecordsetCione 

R FindFirst TSSN_PK] « ° & Che(34) & Me![cmbSSNFind] & Che(34) 
Me Bookmark « Al Bookmark 

Me![cmbSSNFind] = Nui 

Me Close SetFocus 


End Sub 


Private Sub Delete _Cack() 
On Ertor GoTo Err_Delete_Cick 


DoCmd.oMenultem acFomBer, acEdi Meu, 8, , acMenuVer70 
DoCmd. CoMenuiten acFormBar, acEd! Mec, 6, , acMenuVer70 


Extt_ Delete_Cuck 
Ext Sub 


Err_Deiote_Céck. 
MsgBox Err.Descripton = 
Resume Ext_Delew_ Cick 


End Sub 


Private Sub Forn_Curren(() 
Dim s¥SOL As String 


Update the PEF Ust 

aYSOL « "SELECT DISNNCTROW [MARINE].{PEF]JFROM MARINE LEFT JOIN PEF 
ON [MARINE] [PEF] (PEF). [PEF_PK]WHERE ((PEF].[PEF_PK} is NW}ORDER BY 

73.» «Me cmbPetFind RowSource « st SOL 

74 

75 End Sub 


Form: trmSpecialA ssignment 
Code 
Atributs VB_Nerns « “Forn_frmSpecialAssignmant 
Atibute VB_Creetabie « Trus 
Atribute VB_Predecieredid e Trus 
Atributs VB_Exposed « Fake 
Opten Compara Detabese 
Option Explicit 


Privates Sub cmbClassNurber_After Updates) 
Dim s¥Convert As Sting 


Me tdRepor Date « Me crbCmsshisrber Coum(2) 
Me SOMCC « Me crmbClassNumber Cohunyy4) 


* Convert the fiscal yeas to a two digit number for ROS File 
atConvert « CSt(Me crbCassNurnber Cosi 3)) 
st Comvert e Aight{atrConvert, 2) 
Me taFY = Cint(strConvert} 
Me otAssignmentType « "S* 
End Sub 
Privats Sub cmbClassNumber_Enter(} 


Dim si SOL As String 


RYRRRPRVBXRBSSsSateSar seer I MAen= 


"This query finds the class number 3, report dates and class 

convering dates asscciaied with fhe chosen achool 

29 oss SOt « “SELECT BNA EXTRACT. CGaasahumnber_PK 

BNA_EXTRACT CtassCornvOats, BNA_EXTRACT. ReportDats, 

BNA_EXTRACT FiscalYear_PK. SNA_EXTRACT MCC FROM SNA_EXTRACT INNER JOIN 
SCH_TGT_MOS ON (BNA_EXTRACT CourseNuember_PK « 

SCH_TGT_MOS TCou seNumber_FIK) AND (BNA_EXTRACT Targeti0S_PK « 
SCH_TGT_MOS TergetMOS_FK} WHERE BNA_EXTRACT CourseNumber PK « 
Forms'trmSpecialAssignmenticmo>CourseNumber AND SCH_TGT_MOS_AMOS_FK « 
FormalinnSpecialAs sgnmenttdAMos * 

30 = Me crrbClassNurnber RowSource = s¥SOL 

=F 

End Sub 


Private Sub crbCourseNumber_Afer Upcdate/) 

Me ttAMOS « MeicmbCourseNumber Column 1) 
End Sub 
Private Sub embSSN_After Updatie() 


Me &¢S01 « Me!crrbSSN Comm 1) 
Me ocGradDete « MelcmbSSN Coturn( 2} 


End Sub 


Private Sub embSSN_Entar() 


BSKRESKRZASSKESKRECK 
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49 «= Dim air SQL. As String 

SO 

51 s¥SQL e “SELECT DISTINCTROW MARINE SSN_PK MARINE SOL. 

MARINE _GredDats FROM MARINE LEFT JOIN ASSIGNMENT ON MARINE SSN_PK 2 
ASSIGNMENT. SSN_FPK WHERE ({(ASSIGNMENT SSN_FIX) Is Nug)):” 

Me cmbSSN RowSource « s17SOL 


End Sub 
Private Sub embSSNFind_After Updates) 


Dim R As Recordset 

Set R = Me RecordsetCane 

AFindFirst [SSA_FK) @ ° & Che(34) & Me[cmbSSAFing] & Chr(34) 
Me Bookmark « R Boolenark 

Mel[embSS NFind] e Nua 

Me Close SetFocus 


End Sub 

Private Sub Delete_Cick() 

On Estor GoTo Err_Deleto_Cick 
DoCmd.DoMenultern acFormBar, acEditMenu, 8, . acMenuVer70 
DoCmd DoMenultemn acFormBar, acEditMenu, 6. ecMenuVer70 


Extt_Detete_Cick 
Ext Sub 


YFRRFIVVSBRLASALBRLSSEYRARLEK 


Err_Delete_Cick 
MsgBox Err Descripton 
Resume Exit_Delete_Cick 


End Sub 


Privaio Sub Close_Ciickd) 
On Error GoTo Exr_Close_Cick 


Dim stDocName As Sinng 
Dim atlinkCriteria As Siring 


* Close current form 
OcCmd.Close 


"Open specified torm 
s(DocNerme e “frmPreprocessng’é ExcutianSwichboard” 
DeCmd.OnenForm stDoc Name, , , stnkCriterie 


Ext Chose_Cick 
Exd1 Sub 


BIKREBSLBSEAKRESR=ASIS 


99 Err_Close_Cick 

100 MegBox Err Descripton 
101 Resume Ext_Ciose_Cick 
102 

103 End Sub 

104 


105 Private Sub Forn_ Curr ent{) 

106 

10? ° Prevents user from accidientaly making special assignments to 
freasines assigned normaly 

108 if IsNuiiMe cmbSSN Value) e Fake Then 
109 Ma'cm®SSN Enabled « False 

116 Me! cmbCourseNumber Enabied « Fese 
11 Me'cmbClassNurber Enahied « False 
112 

113 ' Allows the user to enter values for fhe fundamental equaton 
114 Ese 

115 Me'cmbSSN Enabied « True 

116 Me! cmbCour se Number Enabled « Trug 
117 Me’ cmbCassNumber Enabled e Trus 
118 

119 «EndIf 

120 

121 End Sub 

122 

123 Prrvete Sub Form_Open( Cancel As integer) 
124 


126 ODoCmd GoToRecord acDataForm, ‘tmGpecialAssignment’. acNewRec 


Form trmSpecialAseignmnentOl Unassi gnecMMarine 


Atribute VB_Narne «= *Form_trmSpecialAssi gnimantOfUnassignedManna” 
Atributs VB_Creatabie « True 

Atibuto VB_Predeciaredid « Trus 

Atibute VB_Enposed « Faise 

Option Compare Database 

Option Expicit 


Private Sub cmbClassNurrber_After Update) 


Coanawna WN = 


10 =Oim st Convert As Sting 
11 OimstSSN As Swing 
12 DimAAs Recordset 


14 Me ddReportDats « Me.cmbCassNumber Coturrn(2} 
15 Mp XOMCC e Me. crmbCassNumber Column 4) 


17 =‘ Convert the fiscal year to a Wo digit number for RD3 File 
18 s®Cormert = CS¥(Me crmbCasaNumber Coasrin(3)) 
19 s¥Corvert e Rights Comert 2) 
200) Me OSFY @ Cini(atrCornart) 
21 
Me tdAsugnmentType = “S* 


* Keep rack of the current SSN 
avSSN « Me cmbSSN 


Me bGAMOS « Me'cmbCou seNumber. Cots 1) 
“Updates the current form and subform 
Me Reaquary 
Me Renant 
‘ Moves the record back to the current SSN 
Set R «= Me RecordeetCione 
A.RindFirst [SSN_FK) «= * & Chr(34) & sSSN & Ctr(34) 
Me Boolonerk « A. Bookmark 
End Sub 
Private Sub cmbClassNurrber_Enter() 


Dim s#SOt As Svina 


SBEASBKESSRBECKLSEBSSIRRBL 
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44 = ° This query finds the class qumbers, report dates and class 

convening dates associated with the chosen school 

45 stSOt e “SELECT 8NA_EXTRACT. CisssNurber_PK, 

BNA_EXTRACT. ClassComDete, BNA_EXTRACT. RaportDate, 

BNA_EXTRACT. FiscalYear_PK, BNA_EXTRACT. MCC FROM 8NA_EXTRACT INNER JOIN 
SCH_TGT_MOS ON (BNA_EXTRACT. CourseNumber_ PK = 

SCH_TGT_MOS. TCourseNumber_Fi) AND (BNA_EXTRACT. TargetfOS_PK @ 
SCM_TGT_MOS. Targo*¥0S_FIK) WHERE 8NA_EXTRACT. CourseNumber_PK @ 
FormsifrmSpecialAssi grmentOfUnassignecMarinelc mb>Cour seNumber AND 
SCH_TGT_MOS. AMOS _FK @ 

46 Me cmbClassNumber.RowGource @ sfSOL 

47 

End Sub 


Privelp Sub cmbCourseNumber_AfierUpcate(} 


Dim stSSN As String 
Dim RAs Recordset 


3tSSN @ Me cmbSSN 


* Keep track of the current SSN 
SISSN © Mo cmbSSN 


Me O¢AMOS « MetcmbCourseNumber.Colurrm( 1) 
* Upciateas the currant form and subform 
Me. Requery 
Mo, Repaint 
* Moves the record back tp the current SSN 
Set R= Me. RecardsetClone 
RFindFirst "[SSN_FK] © ” & Cnr(34) & svSSN& Chr(34) 
Me. Boocionark = Fi Bookmark 
End Sub 
Private Sub cmbSSN_AfterUpdate{) 


Me. 24S 0! = Mo'cmbSSN. Coley 1) 
Me. 0¢GradDale e Mea!cmbSSN. Colummn(2) 


End Sub 
Private Sub cmbSSN_Enter() 
Din stSOL As String 
st'SQL @ “SELECT DISTINCTROW MARINE. SSN_PK. MARINE.SOI, 


MARINE. GradDate FROM MARINE LEFT JOIN ASSIGNMENT ON MARINE.SSN_PK ~ 
ASSIGNMENT.SSN_FK WHERE (((ASSIGNMENT.SSN_FK) Is Nul):° 


85 Me.cmbSSN.RowGource @ stSOL 
86 

87 End Sub 

68 

6&9 Prete Sub cmbSSNFind_AfterUpdate() 
i: e) 

91 Cir R As Recordset 

$2 Set Re Me RecorcdsetCione 

$3 =- RFindFirst °(SSN_FK] @* & Chi(34) & Me!(cmbSS NFind] & Chr(34) 
94 Me, Booignark @ Fi Booignark 

95 Mael(cmbSSNFind] « Aus 

95 Me Close.Sefocus 

97 

98 End Sub 

,°) 


100 Private Sub Detete_Cick{) 
101 On Error GoTo Ext_Detete_Cick 


104 DoCmd.DoMenultem acFormBar, acEditMenu, 8, , ecMenuVer70 
105 DoCmd.DoMenultem ecFormBar, acEditMenu, 6, , ecMenuVer70 
106 

107 Ext_Delew_Cick 

108 Ext Sub 

109 

110 Err_Delete_Cick 

111 MsgBox Er. Descripton 

132 Peaumne Ext_Delote_Cick 

13 

114 Enc Sub 

11S 

116 Private Sub Close_Cick() 

147COn Error GoTo Err_Ciose_Cack 

118 

119 * Chose current form 

120 DeCmd Close 

121 

122 Emt_Ciose_Cack 

123. Exf Sub 

124 

125 En_Ctiose_Cicic 

126 MsgBox En. Descnption 

127 Posisne Exit_Close_Cick 

128 

129 End Sub 

130 

131 Pnvate Sub Form Current) 

132 

133 Me'cmbSSN. Enabled = Trus 

134 MelcmbCoursaNumber.Enabied = True 
135 MelembClassNumber, Enabied = True 


141 Private Sub Form Open({Cancel As integer) 

142 

143 

144 DoCmd GoToRecord acDemForm, 
frmSpecialAssignmentOlUnassignedMarine, ac NewRec 
145 


Form frmUnassagnedMannes 


; 


Atibute VB_Nemne © "Form {rmUnassignedMannes® 
Atribute VB_Creatbie « True 

Atribute VB_Predeclaredid « Trus 

Atritute VB_Exposed @ Fase 

Option Compase Database 

Option Explicit 


Private Sub Ciose_Cick{) 
On Error GoTo Ert_Ciose_Cick 


OOnana wn — 


10 
13 Dem stDocNarne As Sting 
12 Dim stUinkCriwria As Sting 
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’ Close the current form 

DoCrnd Close 

* Open specified form 

stDocName = "frmAnalyzeResuit 

DoCrnd. OpenForm s(DecNare, .. sLinkCritena 


Ext_Ctose_Ceck 
Ext Sub 


En _Close_Ceck 
MsgBox Err.Descripton 
Resume Ext_Ciose_Cick 


End Sub 
Private Sub embSSNFind_AfterUpaa te; } 
Din FAs Recordset 
Set Ae Me. RecorcsetCione 
FLFindFirst °(SSN_PK] @ ” & Chi(34) & Mel[(embSSNFind) & Chr(34) 
Me. Booionark «= Fi Boolcnark 
Ma'[cmbSSNFINd) = Nul 
Me.Close. SefFocus 
End Sub 
Peivealp Sub Form_Current{) 
Own swSOL As Sting 
Cim rec As Recordset 
Dim cb1 As Database 
Set cbt @ CurrentDo() 
* Calculates the number of unassigned marines. 
strSQL = “SELECT Count/PEF) AS TotafUnassigned FROM 
Set rec @ cb1. CpenRecordset{ strSQL, dbOpenSnapshot) 
Me tfTotUnasaigned @ rec! TotaiUnassigqned 
End Sub 
Private Sub binAssgn_Ckck/} 
On Error GoTo Ert_bmAssign_ Cack 
Oim stOocNemne As Sting 
atDocName @ “irmGpecialAssgnmentOlUnassignedManne’ 


DoCmd OpenForm stDoc Nama 


Exit_binAssign_Cick: 
Exit Sub 


Er _binAssign_Cick: 
Mag8ox Er. Desc npton 
Rasusne Exit_binAssiqn_Cick 


End Sub 


Form sublrmF undamentalProperty 


O@OnN Oma Wn — 


we 


Atribute VB_Nerns © °Form_subtrmFundamentalProperty” 
Atibute VB_Creainbie @ True 

Atribute VB_Precieclaredid = True 

Amibute VB_Exposed = Fase 

Option Compare Datnbase 

Option Expicit 

Private Sub cmbVake_FK_AfterUpdate() 


Formal frmF undamantaiP roperty'[F Property Name_Px]. SetFocus 
End Sub 
Private Sub cmb Vatue_FK_BeloreUpdate( Cancel! As Integer) 
On Error GoTo Ert_embVatue_FK_BeforeUpdatis 
Dirn cb As Database 
Dim rec As Racorchet 
Orn stSOL As String 
Dim Corrert As Variant 


* Places value in e form agreeable i Access (eg. ‘HT or 10) 
Comart - “" & 


Forms! frmFundamentalP roperty! subtrm undamentalPropertylemb Vakue_FK & °° 
4 


a3 * Opens fhe table PROPERTY_VALUE 
2 s7SQL @ “PROPERTY_VALUE’ 
2 Sat cb @ CurentOd!) 
2B Set rec @ cb. OpenRecordset{seSOL, dbOpenSnapshot) 
2 
x * Searches for the value ented by the user in tho 
31 tec, Findirst “Value_PK = * & Convert 
R 
3B ‘If The value is not in he PROPERTY_VALUE table, It is added. 
K It rec. NoMatth @ Trus Then 
3S 
% * Disables the action query confirmanzon message 
Rif Appication SetOption “Confirm Action Quenes”, Fabe 
3 
39 ‘ Enters the value int he PROPERTY_VALUE tabio 
40 DoCrrcd OpenQuery "qry UpdateProperty_ Value’ 
41 
£2 * Updates he drop down list for the combobox 
a3 strSQL e “SELECTDISTINCT*& 
Forms! frrmFundamental? roperty'MarineFieid & ° FROM MARINE:° 
“4 
Forms! frmFundamentalP roperty! subtrmF undarmentalProperty '¢ mb Value _F K. AowSou 
ce @ stSOL 
45 
4% ‘ Enables the action query confirmation message 
a Appacation.SetOplion ‘Confirm Acton Queries’, True 
43 End If 
49 
SO tec. Close 
51 
52 Ext_embValue_F K_BeforeUpdate 
53 ExfSub 
$4 
SS En_embVakwe_FK_BeforeUpdate: 
56 MsgBox Er. Descripton 
57 Application. SetOption “Confirm Action Queries®, True 
58 Pesusne Ext_cmbVahe_FK_GeforeUpdalp 
59 
60 End Sub 
Foor subtrmF uncdamentalProperty List 
Coda 


1 


Atibute VB_Name « "Form _subtrmFundamentalProperty sf 
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21 


8 
a 
B 


Atnbut VB_Creatmble = True 
Attnbute VB_Predeclaredid « True 
Atnbute VB_Exposed = Fake 
Opton Compare Database 

Opson Expicit 


Prvate Sub embValue_FK_BetoreUpdate( Cancel As integer) 
On Error GoTo Err_cmbVaius _FK_BoloreUpdaw 


Oim cb As Dambase 
Dim rec As Recordset 
Dim strSQL. As Stnng 
Dim Convert As Vanant 


‘Opens the subfrmFundamenwiProperty 30 the folowng code wi 
DoCmd.OpenForm “subtrmFundamentalProperty’,,., . echidden 


* Places vaius in e form agreeable © Access (e g. HT or 10) 
Comert = ~ & Formst[subtrmFundamentalPropertyjicrnbVahe_FK & 
* Opens the table PROPERTY_VALUE 

stSQL © “PROPERTY_VALUE* 


Set cb @ CurrentDb{)} 
Set rec @ cb.OpenRecordset{strSOL, dbOpenSnapshot) 


tec. FindFirst “Value _PK « * & Convert 

It rac. NoMatch @ True Then 
* Disables the acton query confirmaton message 
Applicaton. SetOpton “Confirm Acton Quenes’, False 


DoCrrd. OpenQuery “gry Update Property _Vahe” 
svSQ. = “SELECT DISTINCT” & 

‘emFundamentalProperty!ManneField & ° FROM MAAINE:° 
Me. cmbValue_FK RowGource « strSQL 


* Enables the acton quay confirmaton measage 
Appicaton.SetOpton “Confirm Acton Quenes’, True 
End if 


rec. Close 


‘Closes he subirmFundamantaiProperty without saving changes t 
DeCrnd.Qose acForm, *subtrmFundamentalProperty” 


Eat_cmbValue_FK_Before Update 
Ext Sub 


Err_cmbValue_FK_SGelorelUpdats. 
MagBox Err. Desenpton 
Appicabon. SetOption “Confirm Acton Quenes”, True 
Resume Ext_cmbVaue_FK_BoloreUpdate 


End Sub 


Prnats Sub Value_FK_BeloreUpdaie( Cancel As Integer) 
On Error GoTo Err_Value_FK_SeforeUpdats 


Qum db As Database 
Oim rac As Recordeat 
Dim stSQl As Stnng 
Om Comer As Vanant 


* Places value in a form agreeable © Access (@ g. ‘HT of 10) 
Comarte "& 


mms' trmrundamenttiProperty! subfrmF undamentalProperty List! Value _FK & 


’ Opens the table PROPERTY_VALUE 
svSOQL « “PROPERTY_VALUE’ 


Set db = CurrentDb{} 
Set rec @ db.OpenRecortiset{stSOL, dbOpenSnapshot} 


rec .FindFirst “Value_PK = * & Convert 
* This If Then statemert checks tp see if the entered value is 1n 
* PROPERTY_VALUE table. If not, ifs eckded tp the table. 
If rac.NoMatch = True Then 
’ Disables the acton quay confirmaton message 
Appkcaton.SetOpton “Confirm Acton Quenes’, Faise 


DeCrrd.OpenQuery “qry UpdaisProperty_Valuelst 


‘ Enables the acton query confirmmton message 
Apphcaton.SetOpton “Confirm Acton Quenes’, True 
End It 


rec Close 


E0t_Value_FK_BeforeUpdats 
Ext Sub 


Err_Value_FK_BeloreUpdate 
MsgBox Err. Descnpion 
Appbcation.SetQpaon “Confirm Acton Quenes”, True 
Resume Ext_Vaue_FK_Setorelipcate 


Module’ modFitnessDetennnaton 
Code 


Oana na uh — 


16 


Atnbut VB_Name © “modFitnessDeterrsnaton® 
Cpton Compere Database 
Opton Expicit 


Drm ingStart, ingEnd As Long 


Pubbe Functon FundPropTest/FundPropNemne As Stnng, SSN As Stnng) As 


Oim rec As Recordset, rec2 As Recordset, rec3 As Pecortset 

Oim stMarFied As Smnng, strFundOperator As Sinng, strSQl As 

Om stMarValeSOt As Sinng. stFfundValueSOL As Sinng, stinput As 
Om varFundValue, varliarValue 

Oim ch1 As Dambase 


FundPropNeme e ~ & FundiPropNeme & " = This expression 


property formaies the argument FundPropNeme. by placjng e’ in front of 
and behind the value found sn FundPropNeme 


17 
16 
19 
2 


Set db1 = CurrenOb() 
saSOL » “SELECT ManneFieid, Opernior FROM FUNDAMENTAL PROPERTY 


WHERE FPropertyNerme_PK « ° & FundPropName 


21 
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Set rec @ 1 OpenRacordset{ strSQL, dbOpenSnapahot 
stMarhekd = rectManneField 


s0FundOperaur = rec!Operstor 


82 
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4124 
M25 
4126 
4127 
412 
4129 
4130 
Chik}| 
41x 
PE <} 
4134 
4135 
413% 
4137 
4138 
as 
4140 
aia 
412 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4190 
4151 
4192 
419 
4154 
4155 
4156 
4157 
4138 
4190 


27 = stinate ~ & SSNS” 

28 st MarValueSOL » “SELECT” & strMarfeld & ° AS [Value] FROM MARINE 
WHERE SSN_PK = ° & strinput 

29 Sat rec2 @ ch1.OpenRecordsel{ st MarValveSOL, dbOpenSnapshot) 

30 varMar ale = rec2' Value 

31 

32s st FundVakeSL @ "SELECT Value_FK FROM FUND_PROP_VAL WHERE 
FProperty Neme_FK = ' & FundPropNerme 

Set rec3 = cb! OpenRecordsey strFundValueSOL, dbOpenSnapshot} 
verFundValue © rec3!Value_FK 


* Convert varFundValue and varia: Value lb o nurmenc, if possubie 
If IsNumnenc(varFund Value) And |sNumernc{varMarValue) Then 
varFundVelue « CintverFundValue) 
E varMarVale = Cint(vartAarV abso) 
be 
varFundValue @ CStriverFundValus) 
i varMarVelue © CSt(varMarVaue) 
ne it 


BRZEBESERES 


Select Case strFundOperator 
Case “=” 
If verMerValue @ verFundVakue Then 
FundPropTest = True 
End If 
Case “net @” 
it vearMiarVelue <> varFundValue Than 
FundPropTest © True 
End If 
Case *<" 
It varMarVelue < vasFundValue Then 
FundPropTast = True 
End tt 
Case “>” 
If varMerVehue > varFundV aise Then 
FundPropTest = True 
End If 
Case “<n” 
If varMerValue <« varFundValue Then 
FundPropTest « True 
End If 
Case *>=' 
if varMarValue >= varFundValue Then 
FundProp Test © True 
End If 
Case “in” 
Bo Untl rec3.EOF 
varFundValue @ rec3!Vale_FK 
if IsNumenc( varFundV ale) And IsNumenc(variiar Value) 
varFundValue © Clay varFundVaue) 
varMiarValue = Cink varMarVale) 
fe 
varFundValue © CStrivarFundV aiue) 
varMarVaise @ CStivarttarVahe) 
End ft 
ll veurMarVelue © varFundValue Then 
FundPropTest « True 


fec3. Move Next 


End Function 
Pubic Functan LogOrTest{inputt As Boolean. input? As Boolean) As 


If Inputt Or Input2 Then 
LogOrTest = True 


ERSLSBSARREBRSSISATAPLAVISSSISARSRAS SABRC BK IESEREEE 


99 Pubic Functon LogAndTest{Inout! As Boolean, Input? As Boolean) As 

100 

101 ff Input? And Input Then 

102 LogAndTeste True 

103 Else: LogAndTest = Fase 

104 End If 

106 

106 End Functon 

107 Pubic Functon LogPropTesi{LogPropName As Stnng, SSN As Sinng) As 

108 «=6Dim mtNewUBound As integer, ; As Integer, k As Integer, | As 

Integer, m As imeger 

103 Dim booOrOperalor As Boolean. booAndOperalinr As Boolean, 

booNoOperaior As Boolsen 

110 ©6Oim stLogcalEquaton As Sng stSOi As Sinng, strinput As 

111 Dim sttWortengEqn() As Stnng 

112 OimmtSpacePos As integer poston of the space 

113. Dim cht As Dambase 

114 Oim rec As Recortset 

115 

118 Set db1 = CurrentDo{) 

117 

118 * Gat the logcal equaton from the LOGICAL PROPERTY table 

T1930 stringrte ™ & LogPropName & ™ 

120 stSCl » “SELECT LogcalE quaton FROM LOGICAL_PROPERTY WHERE 
Nema _PK = ° & stinput & °° 

121 Set rec © dbl. CpenRecordset{strSQL, chOpenSnapshot) 

122 s¥LogcalEquaton e reciLogcalEquaton 


124 ' Parse the etnng into on array 
125 ‘declare the ternporary sinng as an array 
126 Redim stWorlangEqn{0) As Stinng 


128 *° Finct the positan of the first space 

129 intSpacePos © InSe{strLaycalEquaton, * } 

130 ' bop until no more spaces are lound 

131 *° inSv reums 0 if the space is not found 

132 Do UnbtlintSpacePos = 0 

1B * redimension the array, adding another element 

134 * UBound tals us how many alamants there already are in the 
13S ReDim Preserve stWortong gn UBound stWorlangE gn) ¢ 1) 
136 


137 * set the new eiemert & the characters from the begnning ol he 
138 ‘ sinng up & the first space Lefts rewms e number of 
139 * fram the begnning of @ sting 


140 stW ortongE gn UBounch stWortangEqn)) 
Trm$(Latt${strLogc alEquaton, intSpecePos - 1)} 
141 


142 * now weve comed these characters mio the name, hey can be 
143 ’ rernoved from the orignal sting Fight returns e number of 
144 ’ characters from the and of the sting, ft13 the nghimost N 
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148 ‘charactors. harsiore we subvact the powtan of the space 
146 the length of he sting. Ths ges us the nurber of 
characters remanng 

147 s¥ LogicalEquaton © LTnms(AighSisirLopcak quaton, 
Lens LogcalE quabon} > ntSpacePos}} 


148 

149 ‘fing the next space 

150 mSpacePos « InSv(strLogcalE quatan, ° “*) 
1$1 Loop 

182 


183 For; e 1 To (LiBound(s# WorlangEqn)) 
154 Il s¥ WorlangEqn{) © °C Than 


$55 

186 Line! 

1S7 For k = { ¢ 1) To (UBound(st WorkongEqn)) 

188 Seisct Case st Worlongfqn(k) 

1S9 Case “}° 

160 For l= 4+ 1) To{k- 1} 

161 Seinct Case st WorlangE qi(f) 

162 Case “Or’ 

163 booOrOper ator = True 

164 Case “And? 

16S booAndOper ator = True 

166 Case “Not 

167 booNotQperator » True 

168 Case “Trus” 

169 Il s¥ WorlangEqn() = °C Then 

170 If booNotOper ator Than 

171 st WortangEqn() « *Fase” 

172 booNotQperator = False 

173 Ese 

174 stWorlangEqn() © “True” 

175, End Il 

176 Ese * Executed after the first 

bracketed property is tested and stored in the locaton of °C 

177 tf booNotOperator Then 

178 stWorlangEgn(l) © *Fabe” 

179 booNetOperator = False 

180 End If 

a It booOrOperater Then 

LegOTestCBankst Warn) CBonl s¥W ortangE gh} 
tooOrOper ator « Fake 

18 Elsell boaAndOper ater Then 
svWorlongEgn() = 

UspAnTostCBaxkst Warns) CBoni s¢ WorlengEgr?)}) 
booAndOperater « Fase 

ig End If 

188 End If 

189 Case ‘Fale 

190 If s¥WortangEqn() © °(" Than 

191 11 booNotOperator Than 

192 s¥Worlancglqn() « “Tru” 

193 booNotQper ator » Fase 

194 Else 

198 s¥WorlongEqn() © “False” 

196 End If 

197 fise * Executed after the first 

bracketed property 13 tested and stored in the locaton of “C~ 

198 ff booNotOperator Then 

199 stW orlongian(h @ “True” 

200 booNotOperator © False 

201 End If 

202 tf booOrOperator Then 

203 st WortangEqn()) = 


pean asin gag CBonk St WortangEgni{h)} 
booOrOperatar e Fake 

zs Elsell boaAndOperater Then 
stWorlongEgr()) @ 

LeptndTask Boast WarongEn() CBook str WorkengEgn()))} 
booAndOper: 


ator e Fae 
a End It 
209 End It 
210 Case) ‘Oo nothing 
rab) Case Else 
212 il se WorlangEqn) = °C Then 
213 If boaNotOper ator Than 
214 st WortongEgn(j) » Not 
(FundPropTesi{ stWorlengEqn(h, SSN) 
215 booNotQperalcr © Fake 
216 Else 
217 st Wortongqn() « 
Se eens 
219 Ese * Executed after the first 
bracketed property is tasted and stored in the locaban of °° 
220 ft booNotOperator Then 
221 st WorlongEqn(h) = Not 
(FundPropTest stWorlengEqi), SSN) 
222 booNotOperator « Fatse 
223 Else 
224 st WorlangEqn() @ 
eld ae lie SSN} 
End It 
oe il booOrOperator Then 
zzz st Worla 
Le et SoA: CBool( st Worlongéari))) 
booOrOper ator © False 
= Emel] booAndOper ator Then 
230 stWortongEgn(}) © 
LogAndTest{ CBools WorlongEgn{)}. CBool sr Wor eos) 
231 booAndOperator 
2x2 End Il 
233 End ft 
“=u End Setsct 
as Neod | 
236 
a7 ‘Must tansiorm the worlang equabon to account 


for the bracketed expression evaluaton. 
238 


239 In fNewUBound © peace (kep 
240 It ntfNewUBound <> 1 Than 

241 ReDim st TranstormedE gy! To ntNew Bound) 
242 Forme 1 Toy 

243 se TransiorrredE gym) = s& WortangE qm) 
244 Next m 

24S For me (k + 1) To UBound st WoriengEqn) 
246 st TransformedEqim -k + ) = 

247 Neat m 

248 ReDim s¥WorlongEq(1 To intNewUBound) 
249 For me 1 To mtNew Bound 

250 stWorkangEgym) © st TranstormedEqnim) 
a1 Next m 

= ye 1 Set) back to o veke of 1 


GoTo line! ‘Jumps back to For j= 1 to 


(Ubon anger 

es pies © stWorkungEqn(} 
256 Erase st WortangEqn 

257 Erase s¥ TransiormedEqn 
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258 Ent Functon 

23 End Il 

260 Case “(° 

261 yok 

262 GoTo linet “Jumps back ® For j= 1 & 


263 Eal For Eat tho For k « + 1} to 


264 End | 
26S Newt k 

266 End Il 

267 «= Next, 

268 

269 End Funcbon 

270 


271 Pubbc Sub Fitness) 

272 ODmnstSCl As Sinng. st Cinss\usrber As Sting. s¥AMOS As Sting 
273 = Dim stinput! As Stnng. stinput? As Sting 

274 Osm. As Integer, | As integer, k As Integer, | As Integer 

275) Drm intNormaF acter As Integer, ntFit As Integer, indinput As 

276 «Dum intevell As Integer, intLeve?2 As Integer. inf.eve As Integer 

277 «= Ormintevel4 As Integer. infLeved As Integer, infLevel6 As integer 

Dim angDewredW erght As Single, sngEpaion As Single, sngSumOl Fit As 
Orn sngCount As Single, sngAvgFit As Single, sngFitness As Single 
Dim sngMandFitValue As Singin 

Om ingGradDate As Long 

Orn db! As Databese 

Oimn recCless As Recordset, recManna As Recordset. racMarCiFit As 
Own recPEF As Recordset, racF Deared As Recordset. rec Deared As 
Dim recFéMand As Recordset, rec Mand As Recordset 

Orm booMandProp As Boolean, booPEF As Boolnan, booMandatory As 
Orm ver RetVa) As Vananl 

Oim frmCurtent As Form_frnClassQuotaPenaltyAndFit 


Set trmCurrent « Format irmClassQuntaPonaltyAndFit 
Set dbt = Current0d0) 


* Create TEMP_FIT tabie 
Applicabon, SetOption “Confirm Acton Quenes”, Fake 


ingGradDate = frmCurrant MCTGradDate 


* Create 2 TEMP_FIT tables trom MAR_CLS_FIT tablo 

db1 Eecute “SELECT SSN_FK. Manneindex, Clessindex_FK, Fitrexs INTO 
TEMP_FIT FROM MAR_CLS_FIT." 

301 db1 Execute “SELECT SSN_FK, Manneindex, Ciessindex FK, Finess INTO 
TEMP _FITt FROM MAR_CLS_FIT* 

x2 
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303° Irssert into the TEMP_FIT tables the appécable SSNs based on MCT 

Qraduabon date 

304 db Execute “INSERT INTO TEMP_FIT ( SSN_FK )SELECT MARINE.SSN_PK FROM 
afySSN WHERE GradDale = ° & ingGradDaw & °° 

306 db! Esecute “INSERT INTO TEMP_FIT1 ( SSN_FK )SELECT MARINE.SSN_PK 
FROM qrySSN WHERE GradDate © ° & IngGradDate & ~ 

1S 


307 Appbcaton. SetQpton *Confirm Acton Quenes®, True 
308 

3S’ Creat a dynaset of the termp_fil tabie 

310 0 «s¥SQL « “SELECT ° FROM TEMP_FIT 

311 Set recMarCsFri = db1.OpenRecordse(s¥SOL. dbOpenDynasee 
312 recMarCsAit MoveLast 

313 

314‘ Create tre Marmeindex tor the Temp_fit tabie 

315 If recMar CisFit RecordCount > O Than 

NE recMarCFit MoveFirst 

317 For: © 1 TorecMarCsFit RacordCount 


318 recMar COsFit Ec 

319 recMar CaFitManneindex © 1 

220 rec Mar OsFit Upcia te 

221 recMar CSFit MoveNext 

x2 Next) 

23 Endit 

24 

325‘ Create a dynaset of the Class bie 

226 s¥SC e “SELECT SCourseNumber_FK, AMOS_FK FROM CLASS” 
327 0 Set recCiass = db1.QpenRecordses¥SQL. dbOpenDynasef 
28 It recClass. EOF = False Than 

229 tecQass, Movel_ast 

330 tec Gass. Move irst 

K<}) End tl 

Kod 

333‘ Creat a dynaset of the Manne table based on TEMP_FIT1 tabie 
334 stSCL @ “SELECT ° FROM MARINE . TEMP_FIT1 WHERE 


(((MARINE. SSN_PK)={[TEMP_FIT 1}. [SSN_FXD);° 
Set recManne © 1.OpenRiscardeet{ s¥SOL. dbOpanDynased 


If recMarme. EOF = False Than 
fecManne Movelast 
fecManne MoveFirst 

End II 


* Instabze varnables 

booMandProp «= True 

mite d 

bOOPEF «© False 

booMandaiory « Fake 

rnfNormaF actor = 100 

inLevel! = 32 

intleval e 16 

inane «= B 

mies = 4 

intone « 2 

miLevelé ~ 1 

sngDesredWaght « 

sngMandhtValie @ (1 - sngDeuredWeght * intNorralF actor 
var RetVal = SysCri(acSysOndin Meter, “Stats. ..”, 
smgEpmion = 0.000001 


‘Venty recClass has values 

If recQlass. RecardCount > 0 Then 
stQassNurber « “X 
SvAMES <°X" 


* Cycle through al the classes 
For. = 1 TorecQiass. RecordCount 
“Yerld contol senporanty to Windows 
DoEvents 
* Uplate stats bar 
var Reta) @ SysCmdi(acSysCmdUpdalsMowr . 7) 


* Update the classndex_FK for the MarCisFit record 
I) recMarCeFit RacardCount > 0 Than 
tecMerCsFit Mover irst 
For ye 1 To recMarCsFit RecordCoun! 
recMarCsFit Edt 
recMarCshit Gessindex_FK © 5 
rocMasCeFit Updets 
recMarOsFit MoveNent 
Ned j 
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380 recMarCisFit MoveFirst 


381 End ft 

382 * Check lo see if next record :3 the same school as the inst 
383 ‘If if ta, append itt the MAF_CLS_FIT table 

384 i) (rectClass! SCourseNumber_FK @ strClassNumber) And 
{recCiass! AMOS _FIK @ strAMOS) Than 

38s Applicaton. SetOpton “Confirm Acton Quenes", False 
386 db1.E8cuw “INSERT INTO MAR_CLS_FIT ( SSALFK 


Mannelndex, Classindox FK, Finess ) SELECT TEMP_FIT.SSA_FK, 
TEMP_FIT. Mannelndex. TEMP_FIT. Classindex_FK, TEMP_FIT. Fitess FROM 
TEMP_FIT WHERE TEMP_FIT Fitness > 0:° 

Applicaton. SeOpbon “Confirm Acton Quenes’, True 

tecCilass. MoveNext 
Ese 

sngSumOlFit = 0 

sngCount @ 0 

booPEF e@ False 

Venty recManne has values 

II recManne.RecordCount > 0 Then 


* Ieutaize vanabies 

Srinputl = ** & recClasa! SCourseNumber_FK & *” 
strinput2 « “ & recCiasal AMOS_FK & ™* 
nBnput = O 


* Find al PEF's associated wth the current school 
sySQL = “SELECT PEF_FK FROM SCH_PEF WHERE 
reNumber_FK = ° & stinputi & ° end AMOS_FK = ° & strinput2 & *° 

Set rec PEF @ cb1.OpenRecordsel{ strSQL, 
ll roc PEF.EOF @ Feise Then 

rec PEF. Movelast 

rec PEF. MoveFirst 
End If 


BESRERBSRESSRERRREREBERS 


‘ Find mandatory fundamental propertes associated 

wath the current school 

410 strSQL @ “SELECT FProperty Name_FK FROM FUND_SCH_PROP 
WHERE SCourseNumber_FK @ ° & strinputi & * AND AMOS_FK « * & strinpu@ & 
AND Level e & intinput & °** 


au Set rec FMand @ cb1,OpenRecordset s7SOL_ 

412 It recF Mand EOF @ False Then 

413 rec F Mand MoveLast 

a4 recFMand. MoveFirst 

41s End It 

416 

417 ‘ Find mandatory logcal propertes associated with 

the current school 

aig strSQL « “SELECT LProperty Name_FK FROM LOG_SCH_PROP 


WHERE SCourseNumber_FK @ ° & stinputt & ° AND AMOS _FK @ °& sringu@ & 
AND Level = & intinput & °° 


419 Set rec Mand « db! OpenRecordset{ sSOL 

420 If recL Mand EOF @ Faise Then 

421 recl Mand MoveLast 

422 recL Mand MoveFirst 

433 End tf 

424 

425 ‘ Find demred tundarmental propertes associetsd wth 
the curren schoo) 

426 strSQL @ *SELECT FPropertyNamo_FK, (Level] FROM 


FUND_SCH_PROP WHERE SCourseNumber_FK @ * & stringut! & ° AND AMOS _FK = * 
& strinput2 & * AND Level <> * & intinpar & °° 


427 Set recFDesred @ cb1,OpenRecordset sirSOL, 

428 \f recFDesred.EOF @ False Than 

429 recFOesred. MoveLast 

40 recF Demred. MoveFirst 

43) End ll 

432 

4x3 ‘Find dered logcal propertes associated wth the 
curren school 

4x4 strSQL « “SELECT LProperty Name_FK, [Level] FROM 


- 


OG_SCH_PROP WHERE SCourseNumber_FK « ° & strinputt & ° AND AMOS_FK = & 
strinput2 & * AND Level <> ° & intinput & ** 


For k @ 1 To recFMand RecordCount 
* Al wats must prove true lor the 


435 Set recLDesred = cb1.CpenRecordsel{ strSQL, 

436 Hf recL Desired. EOF = Faise Then 

437 cecLDesred. MovweLast 

436 tec Deared MoveFirst 

439 End Il 

440 

441 * Cycle through al the mannes 

442 For) 1 To recManne.RecordCount 

443 ‘ Yerid control temporanly t Windove 

444 DoEvents 

44S * Check & see if manne's PEF is en open 

446 If recManne'PEF <> °00° Then 

447 bOoPEF @ False 

448 It recPEF.ECF @ False Then 

449 * Check t see if manne's PEF is 

associated wih the school 

4% Fork = 1 To recPEF.RecordCount 

451 If recPEFIPEF_FK @ recManne!PEF Then 

452 DOoPEF « True 

453 End It 

454 rec PEF. MoveNext 

485 Next kc 

456 rec PEF. MoveF irst 

457 End fl 

458 Else 

ass bOOPEF e True 

460 End if 

461 * Compare manne etiibutes with the mandatory 

propertes 

462 Il DOOPEF « True Then 

463 ‘ Check for mandatory tundamental propertes 

464 It rec Fiend. EOF = False Then 

46S 

466 

mandatory propertes 

467 {f booMandProe @ True Then 

48 It 

ge recF Mand!F Property Name_FK, recManne!SSN_PK) @ Faise Then 

booMandProp @ F eine 

~ End it 

471 recFMand Move Next 

472 End if 

473 Nand kk 

474 recFMend MoveFirst 

475 End Il 

476 * Check for mandatory logcal propertes 

477 ll booMandProp = True Then 

478 Il recLitand EOF @ False Then 

479 For k @ 1 To rect Mand. RecordCount 

480 * Al fests must prove true for 

the mandatory propertes 

461 " Pi alt © True Then 

4m 

wae rec. Marc! peas FK, rec Manne! SSN_PK) © Faise Then 
booMandProp = False 

“is Endl 

485 rech Mand MoveNe xd 

466 End if 
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Nao k 
rec Mand MoveFirst 
End It 
If booMandProp © True Then 
weFite 1 
End If 
End tl 
’ Reset booMandProp for next check 
booMandProp = True 
* Comoare manne afnbutes wih the desired 
3 
If wntFit > O Then 
* Compare wth dessred Jundamental 
{tf recF Dessrect EOF = False Then 
Forle 1 To recFDesred. RecordCount 
S01 it 


See ee aces mY? cae: FK, recManne!SSN_PK) © True Then 


Selec! Case recFDesred! Lave! 


a Case 1 

504 inthif = inFit « 

S05 Case 2 

506 tit @ iInFit + 

507 Case 3 

SOs INtFit © IntFit + 

509 Case 4 

$10 IMtFit @ Init + 

$11 Case 5 

$12 iMFat © infit + 

$13 Case 6 

$14 Init © iInfFit + 

S15 End Select 

$16 End If 

$17 cecF Desired. MoveNext 

$16 Next | 

$19 recFDegwred. MovweFirst 

§20 End Il 

$21 ‘ Compare wth desired logical propertes 
522 Il recLDesred. EOF @ Faise Then 
§23 For le 1 To recLDesred RecordCount 


§24 ft 
FundProp Test{rec Desired! F Property Name_FK, recManne!SSN_PX) © True Then 
Select Case rec Des red! Lave! 
Case 1 
intFit © iInFit + 
Case 2 
wTtFit @ Init « 
Case 3 
IntFit = intit + 
Case 4 
intFit @ init + 
Case S 
INtFif © Init + 
Case 6 
wtFit = init + 
End Select 
End If 
recLDesred. MovoNext 
Nand | 
rec LDesred MoveFirst 
End If 
End ft’ fl intFit > O Then 
End If’ fl booPEF «= True Than 
recMarCisFitE dt 
‘Il he manne’s PEF 13 not satahed by the 
school or the manne does not meet 
* ell the mandaiory propertes lor the school, « 
score of Zero 13 assigned. 


g 


$49 * Cihenw se, @ value >= 113 asugned A score of 
1 indicates the school had no 

$50 * desired propertes or the manne dd not 
sabsty any of he desired propertes. 

$51 * Laer, 119 subtracted from these scores and 
replaced with « smal vale caled 

§52 ‘ epsilon. The epaion is used t prevent 
Gvwason by zero probiem. 

s83 recMarChFit Fitness © init 

S54 recMarCisFit Upcate 

555 recMarCleFit MoveNend 

$56 * Prevents countng he entres wih zeros ance 
hey are removed joy 

$$7 * Suna up al the fits and gets 6 count of how 
mary fits here are 

558 If intFit > O Than 

SS9 * The 119 subtracted trom the intFit score 
and replaced with @ smal epsilon 

560 angSumOlFit = angSumOlFit « CSng(intit - 1} 
@NAME? 

561 angCount e sngCount + 1 

562 End If 

563 IntFit = O 

564 recManne. Move Naxt 

S65 Next | 

S66 * Prevent divding by zero 

567 Hf sngCount > 0 Than 

568 SNgAVFil © amgSumOlFit / sngCount 

S69 recMarCisFit MoveFirst 

§70 * Update the TEMP_FIT table with the normalized 
hiness vehmwa 

$71 For k @ 1 To recMarCisFit Rec ordCount 

S72 If recMarCsFit Fitness » 0 Then 

$73 rec MarCisFit Edit 

$74 ‘The t 2 subtracted Irom the stored 
fitness score and replaced wih e smed epaion 

S75 sngFitness « CSngirec MarCishit Fitess - 
1) + angEpalon 

S76 rec MarCisFit Fitness @ 

Clntt sngMeandFifVelue « anghiness ° intNormaiFector * sngDeared Weight / 
577 rec MarCsFit Upchate 

S76 End fl 

579 recMarCishit MoveNext 

S80 Next k 

581 * Insert the TEMP_FIT records int the 

$82 Appicaton. SeiOpton “Confirm Acton Qusnes", 
563 db). Emcute “INSERT INTO MAR_CLS_FIT { SSN_FK, 


Mannelndax, Classindex_FK, Finess ) SELECT TEMP_FIT.SSN_FK, 


584 Applicaton. SetQpaon “Confirm Acton Quenes’, 
S65 srClassNienber @ recCinss' SCourseNumber_FK 
586 SAMOS @ recClass!AMOS_FIK 

567 End Il 

588 rec Manne. MoveFi rst 

58s Hf recCiaas. EOF @ False Then 

590 rec Class. Move Neod 

sg End I! 

$92 End if ‘Il recManne RecordCount > 0 Then 

5593 End 10 ' Ul (recCtass SCourseNumber_FK © stClassNumber) And 
(recClass. AMOS_FKK @ st}AMOS) Then 

Soa Neod | 

$95 Endlit* 
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597 recMarCisFilClose 


S99 ‘Prepare he AMPL ram! dat data fie 

600s Application. SetOption “Confirm Action Queries”, Faise 

601» db1.Escutm “DELETE ° FROM TEMP_FIT,” 

602 | Specify the rmustber of masines 

603 db1.Esecute ‘INSERT INTO TEMP_FIT (SSN_FK, Mannelndex) VALUES 
(‘param totalMarines ‘=',” & recMarine RecordCount & *),” 

604 db1 Emecite “INSERT INTO TEMP_FIT (SSALFK)} VALUES £:9.° 

665‘ Specify the number of schod classes. 

606 db? Expcute ‘INSERT INTO TEMP_FIT (SSN_FK, Marine|lndex) VALUES 
(param totalClasses e',° & recClass. RecordCourt & *};° 

607 db1.Exscute “INSERT INTO TEMP_FIT (SSN_FK} VALUES [;9:° 

608 ‘ Specity the class demand 

609 db! Expaute “INSERT INTO TEMP_FITT (SSALFK} VALUES (param demand 
610 = db1, Eecute "INSERT INTO TEMP_FIT ( Ctassindex_FK, Fitness ) SELECT 
CLASS. Classindex, CLASS, Quota FROM CLASS.” 

6119 db) Exscin "INSERT INTO TEMP_FIT (SSA_FK) VALUES £;3;° 

612° Specily the class penahy 

613 db1.E=scuts "INSERT INTO TEMP_FIT (SSN_FK) VALUES (param penalty 
614 db1.Escutp “INSERT INTO TEMP_FIT ( Classindex_FK, Fitness ) SELECT 
PENALTY. Classindex_FK, PENALTY Penalty FROM PENALTY;° 

61S db) Excite “INSERT INTO TEMP_FIT (SSALFK) VALUES (:9;° 

616 DoCmd TransferTex acExportFined, “Adm1_Data Exporl Specilicatan’, 
TEMP_FIT, °C:\ROMn\AmpDatavdm!1 dar 

617 

619 ‘Prepare he AMPL rdr@.dat dota fis 

619 db’ Expcute “DELETE ° FROM TEMP_FIT,” 

620 cbt. Expcute “INSERT tNTO TEMP_FTT SELECT ° FROM MAR_CLS_FIT:* 
621 db). Ee cinte “ALTER TABLE TEMP_FIT DROP COLUMN SSN_FK,” 

G22 db Expcute “ALTER TABLE TEMP_FTT ADD COLUMN SSN_FK toxt,° 

623 db1.Expcute “INSERT tNTO TEMP_FIT (SSALFK) VALUES (‘param fitness 
Cotaut 0 «};° 

624 db1,Emcite “SELECT * INTO AMPL_TEMP FROM TEMP_FIT ORDER 8Y SSA_FK 
625  db1.Execute “INSERT INTO AMPL_TEMP (SSN_FK)} VALUES (':};° 

626 DoCrnd TrarsterText acExportFined, "Adrmr?2_Data Export Specification’, 
AMPL_TEMP, °C \RDMn\ArpiData\rare. dat 

627 = Application. SetOptan “Confum Actian Queries”, True 

€238 

629 recMarine Close 

630s recClass.Closo 

631 =‘ Remove he created tabes 

632) db) Eaecute “DROP TABLE TEMP_FIT,° 

633) 1. Expante “DROP TABLE AMPL_TEMP,” 

634 1 Exsaute “Drop Table TEMP_FIT1,” 

635 «db!.Chse 

636 «' Remove he moter frombe status ber 

637 = varRefVal e SysCmdiacSysCmdRemoveMeter)} 


633 
639 End Sub 
640 


641 

642 Pubsc Sub Quota_Ponalty (var UDateBound As Varian} 
643 Dimva Dab 

644 Dirmrec As Recordset, rec! As Recordset 

645 DimstSQt As Srring, strComenrt As String 

646 Dim As Integer 

647 Dirmcb1 As Database 


oa 


‘ Creat new class quoia [ile 
Application. SetOption “Confirm Action Quenes’, False 


g 


‘ Delos the old penally and class files 
DoCrnd. RunSOQl “DELETE * FROM PENALTY~ 
DoCrmi.RunSQl “DELETE ° FROM CLASS” 


‘ Query generates new class quote 
DoCrm. Sew arnings (Faise) 
DoCmd OpenQuery “gry NewQuota’ 
DoCmd.SeW amings (True) 


* Belew any values < 0 
DoCmd. RunSOQL "DELETE * FROM CLASS WHERE Quota <= 0, 


Application. SetOption “Confirm Action Queries”, Trus 


* Create index for te class table and format tre FY tor ADS fie 

Sel cb1 = CurrentDb{) 

sSQL » “SELECT CLASS. *, SCHOOL PenaltyFactor FROM SCHOOL INNER JOIN 
CLASS ON (SCHOOL. AMOS_PK « CLASS. AMOS_FiK) AND (SCHOOL SCourseNumber_PK « 
CLASS. SCourseNumber_FK),° 

670 Setrec e dbl.OpenRecordaet{stSOL, dbOpenDynasef) 

671 = rec. MoveLast 


BESRRSRRSERLSR AER 


aa 


tl rec RecordCount » 0 Then 
674 rec MoweFirst . 
675 For ie 1 To rec RecordCount 


676 rec.Ecit 
677 reciClassindex = | 
678 ‘ Converts the tiscal year tb a two doit nurrber for RD3 file 
679 srComert « CSt(rec!FiscalYear_PK) 
680 s¥Comvert « Right'sirComert, 2) 
681 reciFiscalYear_PK « Cin¥strCornert) 
682 fec. Update 
683 Tec .MoveNend 
684 Nex! 
685 EndIf 
686 
687 ‘Creat penalty file 
‘First update the Index trom the CLASS tabie 
Application. SetOption “Contirm Action Queries”, False 
DoCrrd. OpenQusry “gry Penalty Index” 
Application. SetOptan “Confirm Acbon Quenes’, Trus 
*Creaw a record sel of fre PENALTY table 
svSOl e “SELECT * FROM PENALTY” 
Sel rec! « db1 OpenRecorcses¥SOL, dbOpenDynaset 
If IsNudivar UDateBound) = Fetse Then 
* Format thés dats for use In the DaleDilf funckan 
verUDaBBound = Forma\varUDaieBound, °aaaa/aa ae") 
modFitnessDeterranaion Page 16 
It rec. RecordCourt > 0 Then 
rec. MoveFirst 
Forie 1 Torac RecordCoaumnt 
raci.Edt 
703 ' Get report dat from class racord 
704 varDaw e rac!ReporDaie 
705 * Format the report dale tor use in he DaleDift function 
706 varDew « FormativarDals, "ada a/aa/a a7) 
707 ‘ Make the penalty the difference betwnen the two values 
708 ‘Tres makes the penalty Inear, based on date 
708 rec1'Penalty = CamDit(d, varDaw, varUDabBound) ° 
rec!PanattyFactor \ 24 
710 Tec] Updar 
711 rec. MaveNext 
712 tec] MoveNext 
713 Neod | 
714 End It 
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&& 
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SSSSRRERESRESREEREES 
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8 
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4904 


71S End it 

716 

717End Sub 

718 

719 Pubbe Sub Deleis Table(} 

720On Error GoTo DetesTable_ Err 

721 

722 Dima! As Dambas 

723 

724 ~=Seldb1 « CurrenDbp 

725 ‘Belew te table it it already axst 
726 db1.TableDefs Delete “PERCENTAGE” 
727 Delo wTable_Ext 

729 «=ExI Sub 

729 

730 Detew Table_ Err: 

731 Setect Case En Number 

7322 ‘This number occurs if the PERCENTAGE tabie does not oxst 
733 Case 3265 


7% Resure Delt Table_E xt 
735 Case Eo 

73 MsgBox Err. Descripton 
TH Resurne Debs Table_Ex! 
738 Resure 

739 End Select 

740 

741 End Sub 


Module modimportExportData 

Atibute VB_Name « “modimpor tExpor Data” 
Option Canpare Dathhase 

Option Explicit 

Pubsc Sub ImporiIBNA) 


CoCr TransterToxt acimportFimed, GNAEstracl, “qryBNAEodracl, 


: 


NOAM OM = 


11 Pubke Sub ImpartRD 10) 

12 

13 DoCrd. TransterText aclmportFixed, °RD1°, “qryMesine”, 
C:\ToBeRdam\AdmData\AD 1. tt 


17 Pubéc Sud ImporfToTarget_ MOS{) ‘(ActonQuary As Sting) 

19 

19 CurrentDb(). cute “INSERT INTO TARGET_MOS ( CourseNusrber_PK, 
TargetM0S_PK, MCC ) SELECT DISTINCT BNA_EXTRACT. CourseNumber_PK, 
BNA_EXTRACT TargetMOS_PK, BNA_EXTRACT.MCC FROM BNA_EXTRACT” 


20 

21 End Sub 

22 

23 Pubkc Sub Ampl_Resuly) 

24 

25 Corn TransterTaxt acimportDeltm, ‘Ampl_Pesuil, “AMPL_RESULT, 
C:\ToBeRdmtAngD ata\rdm out, True 


End Sub 


Pubic Sub AmpData() 
On db! As Dotahase 


Sot 1 «© Current) 


‘ Prepare he AMPL rdm det data fie 

Appécaton. SetOption “Canfitm Action Quenes®, Fase 

D1. Execute “CREATE TABLE CONSTANTS (ConstantNeme TEXT, infValue 

‘ Specify the fit constant 

db. Execute “INSERT INTO CONSTANTS (ConstantNerre, Infvaiue) VALUES 
(param fitConstart -«’, ° & Forms!irmPrepareAndioecuteSokerlcmbFil & 

39 © 1, Execute “INSERT INTO CONSTANTS (CorstantName) VALUES (:3;" 

40 =‘ Specity the A constant 

41 D1, Becute "INSE AT INTO CONSTANTS (ConstantNarre. infValue) VALUES 
(param filConstani :«", * & Forms! trmPrepare AndisecuteSoker'cmbFill & 

42 9 D1. Execute “INSERT INTO CONSTANTS (ConstaniName) VALUES (,}:° 

430 DoCrnd Transier Text acExportFised, “Rdm_Data Export Speciticaton’, 
CONSTANTS, “C;\ToBeRdmAmpD ata\rdmdar” 

44 Application. SetOption “Cantirm Action Quenes®, Trus 

4S 

46 = ' Rerrove fhe created abe 

47) = 1. Execute "DROP TABLE CONSTANTS,” 


BIRREBKRESBSYS 


48 db1.Cioee 
49 End Sub 
so 


51 Public Sub ExportRD30 


DoCmd. Transter Text ac ExporfF ed, “ExpartRDSFits’, “qryRD3Fis’, 
C.\ToBeRDOM Rom ata\RDS, oa 

Appicatian. SetOption “Contirm Actan Queries’, Faise 

DoCrrrt OpenQuery “gry Updats AssignwnentType” 

DoCmd OpenQuary “gry AppendResufT oAssgnment” 

Application. SetOption “Confirm Action Queries”, Trus 


End Sub 
Public Sub ArchiveDeta0) 


Dim verTodaysDate 
Dim s¥SQt As Sting 


verTodaysDats » Date 


‘ Formal the dab 

verTodaysDa's « Format(verTodaysDate, “yyyymmadd) 
* Convert the dale inin a number 

verTodaysDawe © CLngivarTodaysDais) 


74 ' Archive the appiicabs data 

7S DoCrmd.RunSan “INSERT INTO MARINE_ASSIGN_ARCHIVE SELECT DISTINCTROW 
MARINE. SSN_PK, MARINE. UNeme, MARINE Inibals, MARINE Gender, 

MARINE. DriverLicerse, MARINE SOt, MARINE. TrainingCompary. 

MARINE. MC RD_ Code, MARINE. PiNumber, MARINE Clizenstyp, MARINE GradDab, 
MARINE. Swi , MARINE. Obs gation, MARINE. Age, MARINE Edurcatian, 

MARINE HighestVath, MARINE. MentalAblty, MARINE ClearanceEst, 

MARINE. Height, MARINE Vision, MARINE ColorPerceplion, MARINE, EthricGroup, 

MARINE. DLAS, MARINE EDPT, MARINE OisrictCode, MARINE Typing, MARINE. EL, 
MARINE. MM MARINE CL. MARINE.GT, MARINE.Component, MARINE PEF. 

MARINE CiiiCanictan, MARINE RSN, MARINE AFADBD, 

ASSIGNMENT. Coursehastber, ASSIGNMENT. AMOS, ASSIGNMENT.MCC, 

ASSIGNMENT. ClassNumber, ASSIGNMENT ReportDae, ASSIGNMENT. Fiscal’ ear, 
ASSIGNMENT AssignmentType FROM MARINE INNER JOIN ASSIGNMENT ON 

MARINE. SSN_PK « ASSIGNMENT.SSA_FK WHERE ASSIGNMENT. ReportDals < ° & 

76 

77‘ Dele he date from the Marine and Assignment tables 

78 DoCmd.AunSar “DELETE DISTINCTROW MARINE °, ASSIGNMENT.° FROM MARINE 


EEEERERERG 


78 = =ODoCmd PumSOt “DELETE DISTINCTROW MARINE *. ASSIGNMENT.* FROM MARINE 
INNER JOIN ASSIGNMENT ON MARINE SSN_PK = ASSIGNMENT.SSN_FK WHERE 
ASS!GAMENT ReportDate < * & varTodaysDam & ~ 

79 

80s Select Case MsgBan(*Delete unassigned Marines from the database?”, 

voYesNo + voQueston, “Delo Unassigned Masmes”) 

81 Case 6‘ If yes is choked 

82 * Deletes entes in the Manne tabie mthout a corresponding 

entry in the Asagnmaent table 

a3 DoCmd. PunSQt “DELETE DISTINCTROW MARINE * ASSIGNMENT SSA_FK 


86 


FROM MARINE LEFT JOIN ASSIGNMENT ON MARINE SSA_PK = ASSIGNMENT.SSN_FK 
WHERE (((ASSIGNMENT.SSALFIK) |s. Nud)):" 
84 Case 7' If no a chckad 


as ‘No action taken 
86s End Select 

87 

88 End Sub 
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